Download process bei Indy Component ?

[thomas2009]

Hallo

mit dem Code kann ich eine Datei schnell downloaden:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
Stream:TMemoryStream;
http:TidHttp;
name,url:string;
begin

url:='http://xxx.com/test.exe';  //download url
name:='c:\test.exe';   //
try
  try
    Stream := TMemoryStream.Create;
    http:=TIdHTTP.Create(self);
    HTTP.Request.Referer := 'http://www.xxx.com'; 
    HTTP.Get(Url,Stream);
    if FileExists(Name) then DeleteFile(Name);
    Stream.SaveToFile(Name);
  except
    on e:exception do
    begin
       //...
    end;
  end;
finally
  Stream.Free;
  http.Free;
end;
end;

Ich muss in Ereignis :
OnWork
OnWorkbegin
OnWorkEnd

was eingeben, damit ich die Prozess in Statusbar anschauen
Hier habe ich so ähnlich aber der Code ist ganz ganz langsam (mehr als 10 Mals langsamer als normal):
http://www.delphipraxis.net/internal...ct.php?t=81071