Transferrate anzeigen

[Bit Juggler]

Hallo,
ich bin dabei eine Anwednung zu schreiben mit der ich einige Daten Streams auswerte.
Ich hätte da jetzt gerne eine Transferanzeige eingebaut die mir das aktuelle Übertragungsvolumen pro Sekunde anzeigt!
Ich lese den Stream ein per:

Delphi-Quellcode:

 hSession := InternetOpen('MyApp', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
    if Assigned(hSession) then
    begin
      hService := InternetOpenUrl(hSession, PChar('http://xxxxxxxx'), nil, 0, 0, 0);
     usw. ...

Ich hab auch schon bei M$ nachgeschaut, habe aber nichts verwertbares gefunden!
Kann aber auch sein das es da was brauchbares gibt und ich es nicht zu nutzen weiß, ich stehe ja noch an den Anfängen

Wäre schön wenn mir dabei jemand helfen könnte!

Gruß
Bit