Weshalb verwendest du
if not FileExists(ExtractFilePath(sDir)+'Experience.txt') then
Du willst doch direkt ins Verzeichnis sDir schreiben.
Also:
Delphi-Quellcode:
....
sDir:= IncludeTrailingPathDelimeter(sDir); //sicherstellen das sDir mit einem Backslash aufhört
If not Fileexists(SDir + 'Experience.txt' then
begin
AssignFile(txt, sDir +'Experience.txt');
rewrite(txt);
CloseFile(txt);
end;