Zeilenweise in Datei Schreiben

[Evian]

Hallo Zusammen,

ich möchte in einer Datei die ersten beiden Zeilen mit bestimmten Strings überschreiben. Ich dachte, das geht so:

Delphi-Quellcode:

assignfile(f,filename);
reset(f);
append(f);
for i := 0 to 1 DO
begin
  writeln(f,neueStrings[i]);
end;
closefile(f);

aber er hängt die Strings einfach hinten an die Datei an. Wie genau überschreibe ich eine Zeile?!

gruß

Evian