Download mit Geschwindigkeitsanzeige und Dateigröße

[Tim-94]

Hi!
Gibt es eine Möglichkeit mit Turbo Delphi einen Download mit Geschwindigkeitsanzeige,
Dateigröße und verbleibender Zeit zu programmieren?

Bisher ist mir nur der normale Dateidownload bekannt.(Läuft im Hintergrund ab!)

Delphi-Quellcode:

procedure TForm1.OKBtnClick(Sender: TObject);
var
  Datei,Ziel:PChar;
begin
Caption:='Download startet...';
Datei := 'http://google.de/test.txt';
Ziel := '.\test.txt';
UrlDownloadToFile(nil, Datei, Ziel, 0, nil);
end;

PS: Ich habe extra den Hinweis "mit Turbo Delphi" oben hingeschrieben, da ich mithilfe
der Suche nur Downloads mit der Komponente "TIdhttp" gefunden habe.
(Die Angabe zur Zieldatei im Delphi-Quellcode ist nicht original!)