function TOSFile.IsPathEqual(const PathToCompare: String): Boolean;
begin
  result := GetPathOfFileAccessing = UpperCase(PathToCompare);
end;

constructor TOSFile.Create(const FileToGetAccess: String);
begin
  inherited Create;
  PathOfFileAccessing := UpperCase(FileToGetAccess);
end;