TFileStream -> Datei bereits in Benutzung

[sx2008]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var FS:Tfilestream;
    URL:String;
    blockliste: Array of AnsiString;
    filename, s : string;
begin
  URL:= 'http://.../server_'+listbox3.items.strings[ListBox3.ItemIndex];
  filename := 'SpammerList.dat';
  if FileExists(filename) then
    FS:=Tfilestream.Create(filename,fmOpenWrite,fmShareDenyNone)
  else
    // Datei erzeugen, wenn noch nicht vorh.
    FS:=Tfilestream.Create(filename,fmCreate,fmShareDenyNone);
  try
    FS.Seek(0, soFromEnd);  // ans Ende springen
    IdHTTP1.Get(URL,FS);
    s := #13#10 + StringOfCar('=', 80)+#13#10;  // Trennzeile ======
    FS.WriteBuffer(s[1], Length(s));  // Trennzeile schreiben
  finally
    FS.Free;  // ein normales Free ist hier vollkommen ausreichend
  end;
  IdHTTP1.Free;  // bist du sicher, dass dieses Objekt freigegeben werden soll?
end;