Geschwindigkeit kannst du damit (glaube ich) nicht machen.
Aber ich geb' dir mal einen kleinen Tipp:
Delphi-Quellcode:
procedure TForm1.IdHTTP1Work(Sender: TObject; AWorkMode: TWorkMode; AWork: Integer);
begin
ProgressBar1.Position := AWork;
end;
Chris