Fehler bei REWRITE

[Chrissi91]

Ich versuch es dir nochmal zu erklären

Ich habe eine Index-Datei, in der die Dateinamen der Datensätze für mein Adressverzeichnis drinstehen. Wenn der Benutzer sich das Programm runterlädt, ist meistens noch keine Index-Datei dabei. Diese soll beim Erstellen des ersten Eintrages miterstellt werden. Dann soll der Dateiname in die Index-Datei getan werden. Und zwar wollte ich das so machen:

Delphi-Quellcode:

var
datei: textfile;
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;

Geht das so, wenn die Datei noch nicht existiert und erstellt werden soll?

Existiert die Index-Datei doch schon, dann soll einfach nur eine Zeile angefügt werden:

Delphi-Quellcode:

var
datei2: textfile;
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;

Um das zu verbinden will ich das so machen:

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;

Soweit mitgekommen?

Bei mir funktioniert das ganze mit Append aber nicht, wenn Eintrage.txt total leer ist.