Geschwindigkeit ermitteln ohne Get

[kaschte]

Mein Problem: Um die Downloadgeschwindigkeit zu ermitteln benutze ich immer die Methode mit IdHTTP1.get also in etwa so:

Delphi-Quellcode:

procedure TForm1.IdHTTP1WorkBegin(ASender: TObject; AWorkMode: TWorkMode;
  AWorkCountMax: Integer);
begin
  FTime := GetTickCount;
  FBytes := 0;
  Application.ProcessMessages;
end;

procedure TForm1.IdHTTP1Work(ASender: TObject; AWorkMode: TWorkMode;
  AWorkCount: Integer);
begin
 if not((GetTickCount - FTime) <= 0) then
  begin
    try
      label1.caption := Format('%.2f KB/s', [(AWorkCount - FBytes) / (GetTickCount - FTime)]);
    except
    end;
  end;
  FTime := GetTickCount;
  FBytes := AWorkCount;
  Application.ProcessMessages;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
IdHTTP1.get(downloadurl);
end;

Jetzt möchte ich aber, dass die Downloadgeschwindigkeit die ganze Zeit ermittelt wird, ohne dass eine Datei heruntergeladen wird.
Geht das überhaupt mit IdHTTP oder sonst einem Komponenten?