Fehler bei REWRITE

[Chrissi91]

Grrr ... Geht dieser Code nun bei existierenen Dateien, die entweder leer oder nicht leer sind (mit Text ) und auch, wenn die Datei nicht existiert?

Delphi-Quellcode:

var 
datei, datei2: textfile; 
begin 
if fileexists('Eintrage.txt') then 
begin 
  assignfile(datei2,'Eintrage.txt'); //Das ist die Index-Datei 
  append(datei2); 
  writeln(datei2, edit1.text+'  '+edit2.text+'.txt') //Daraus setzt sich der Dateiname zusammen 
  closefile(datei2); 
end 
else 
begin 
  assignfile(datei,'Eintrage.txt'); //Das ist die Index-Datei 
  rewrite(datei); 
  writeln(datei, edit1.text+'  '+edit2.text+'.txt') //Daraus setzt sich der Dateiname zusammen 
  closefile(datei); 
end; 
end;