E/AFehler 433. bei Append TextFile

[Delphi.Narium]

Delphi-Quellcode:

procedure xy(hlog : string);
var 
  EFile : TextFile;
begin
{$I-}
  AssignFile(EFile,'xy.bin');
  Reset(EFile);
{$I+}
  if IOResult = 0 then begin
    Append(EFile);
  end else begin
    Rewrite(EFile);
  end;
  Writeln(EFile,hLog);
  Flush(EFile);
  CloseFile(EFile);
end;