mehrere Datensätze in Datei schreiben und wieder Auslesen

[saibotq]

N'abend,

ich versuche in eine Datei mehrere Datensätze von einem benutzerdefinierten Typ reinzuschreiben. Das Problem ist, dass es irgendwie nicht klappt mehr als einen Datensatz in die Datei zu schreiben, ohne den ersten Datensatz zu überschreiben.

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var eingabe:Kontotyp;

begin
assignfile (KSK, 'KSK.dat');
rewrite (KSK);

seek(KSK,anzahl);

with eingabe do
begin
     nr:=edit3.text;
     pin:=edit4.text;
     stand:=strtofloat(edit5.text);
end;

write (KSK, eingabe);
inc(Anzahl);

closefile(KSK);

end;

Beim ersten mal, wo ich die Prozedur ausführe, schreibt das Programm die korrekten Daten in die Datei. Beim zweiten mal wird auch an der zweiten Position in der Datei geschrieben, aber dabei wird der erste Datensatz überschrieben...

Was kann ich tun?