Hi franky, von mir auch nochmals ein Herzliches Willkommen!
Dein Problem wurde ja schon gelöst, habe nur noch einen kleinen Tipp für dich:
Delphi-Quellcode:
...
if FFileStream1 <> nil then // kannst du auch mit "if Assigned(FFileStream1) then" prüfen, das macht intern auch den <> nil Vegleich, ist nur eine Schönheitssache...
begin
// und das hier dürfte niemals erreicht werden.
FreeAndNil(FFileStream1);
// tut es aber :-(
end;
end;
Viele Grüße
DelphiManiac