speichern ohne komplett zu überschreiben

[Ralle00]

Hallo,
ich lerne Delphi in der Schule und habe ein Problem:
Ich habe eine ListBox in die ich verschiedene Angaben eingeben kann und kann die dann speichern.Wenn ich das Programm dann aber neu starte und unter dem selben Dateinamen etwas speicher wird der alte Inhalt der Datei überschrieben.
Ich denke der Fehler liegt bei 'Reset(f)',weil da der Dateizeiger auf 0 gestellt wird(so wie ich das verstanden hab).Gibt es einen Befehl,der den Dateizeiger an die jeweils letzte Stelle der Datei rückt,bevor gespeichert wird,um den Rest net zu überschrieben?
Wäre für Hilfe dankbar.

procedure TForm1.BSpeichernClick(Sender: TObject);
var f : File of TKollekte ;
k : Integer ;
Name : String ;
begin
Name := ESpeichern.Text ;
ASSIGNFILE(f,'C:\' + Name ) ;
{$I-}
Reset(f) ;
{$I+}
if IOResult <> 0 then
rewrite(f) ;
for k := 1 to 30 do
Write(f,AListe[k])
end;