In einen TFileStream speichern und laden

[Neutron]

Guten Tag
Ich hab ein Programm geschrieben welches zu Anfang Daten aus einem TFileStream in eine Listbox lädt:

Delphi-Quellcode:

procedure TDatein.LoadFromStream;
var
Stream : TFileStream;
begin
Stream := TFileStream.Create(ExtractFilePath(Application.ExeName)+'Speicher\Daten\1.OKM', fmOpenRead); //Er lädt hier die Streamdaten
Form2.ListBox1.Items.LoadFromStream(Stream); //Jetzt Lädt er alle Streamdaten in die Listbox
end;

Und am ende dies Daten aus der Listbox wieder speichert:

Delphi-Quellcode:

procedure TDatein.SaveToStream;
var
Stream : TFileStream;
begin
Stream := TFileStream.Create(ExtractFilePath(Application.ExeName)+'Speicher\Daten\1.OKM', fmCreate);
Form2.ListBox1.Items.SaveToStream(Stream);
end;

Hier tritt leider immer ein Fehler auf! Allerdings nur wenn diese Datei bereits besteht.
Hatt jemand ne Idee wie man den Fehler beheben kann oder warum er überhaupt auftritt?