Fehler bei REWRITE

[Chrissi91]

Delphi-Quellcode:

if fileexists('Eintrage.txt') then
 begin
  assignfile(datei2,'Eintrage.txt');
  reset(datei2);
  readln(datei2,hilf);
   if hilf <> '' then
    begin
     reset(datei2);
     append(datei2);
     writeln(datei2,edit1.text+' '+edit2.text);
    end else
    begin
     rewrite(datei2); <-- Hier Fehlermeldung
     writeln(datei2,edit1.text+' '+edit2.text);
    end;
   closefile(datei2);
  end else
  begin
   assignfile(datei2,'Eintrage.txt');
   rewrite(datei2);
   writeln(datei2,edit1.text+' '+edit2.text);
   closefile(datei2);
  end;
 end;

Fehlermeldung: ElnOutError I/0 error 32

Folgende Variablen wurden in der Procedur deklariert:

Delphi-Quellcode:

var
datei2: textfile;
hilf: string;

Keine Variablen wurden global deklariert.

Die Datei existiert. Sie ist aber leer. Deshalb habe ich mit der IF-Abfrage geprüft, ob sie leer ist, da der Befehl append bei leeren Dateien nicht funktioniert (meiner Meinung nach). Nun soll mit rewrite und writeln etwas in die Datei geschrieben werden. ICH HABE AUCH DIE SUCHMASCHINE BENUTZT, habe aber nichts gefunden, was mir weiterhelfen konnte.