Fehler bei REWRITE

[devnull]

Es sollte doch so sein, oder?

Delphi-Quellcode:

procedure TForm1.btn_TestClick(Sender: TObject);
var
  datei2: textfile;
  filename : string;
begin
  filename := ExtractFilePath(ParamStr(0)) + 'Eintrage.txt';
  assignfile(datei2,filename);
  if not fileexists(filename) then
     rewrite(datei2)
  end
  else
     reset(datei2);
  
  closefile (datei2);  

  append(datei2);
  writeln(datei2, edit1.Text + ' ' + edit2.Text);
  closefile(datei2);
end;