[Gelöst] Freeze verhindern?

[All.4.ONE]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var FileStream:Tfilestream;
    URL:String;

begin
  if savedialog1.Execute then
  begin
    startdl := false;
    URL:= GetUrl;
    startdl := true;
    FileStream:=Tfilestream.Create(savedialog1.InitialDir+savedialog1.FileName+'.flv',fmCreate);
    IdHTTP1.Get(URL,FileStream);
    FileStream.Free;
    startdl := false;
  end;
end;

Hier der downloadcode