Ersetze im Quelltext von Posting #19
Delphi-Quellcode:
if FFileStream1 <> nil then
FFileStream1.Free;
in den Zeilen 6 und 7 durch
FreeAndNil(FFileStream1);
Der Fehler tritt auf, weil beim dritten Versuch, die Datei zu öffnen, FFileStream immer noch ungleich nil ist.
jkr