Fehler bei REWRITE

[Chrissi91]

Delphi-Quellcode:

assignfile(datei2,'Eintrage.txt');
  if not fileexists('Eintrage.txt') then
  begin
  rewrite(datei2);
  end
  else
  begin
  reset(datei2);
  end;
  closefile (datei2);

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

Hier kommt wieder die Fehlermeldung ...