Quellcode klappt nicht

[toms]

Hallo!

Muesste so funktionieren:

Delphi-Quellcode:

procedure intxtschreiben(pfad, Text: string);
var 
  txt: TextFile;
begin
  AssignFile(txt, pfad);
  if fileexists(pfad) then
    Append(txt)
  else
    Rewrite(txt);
  Writeln(txt, IntToStr(123));
  Closefile(txt);
end;