Problem bei code umformung für netzwerk auslastung

[G G]

Hi, ich habe in dem forum folgenden code gefunden, um die download geschwindigkeit zu errechnen. Nur jetzt bin ich absolut nicht in der lage diesen code so umzuformen dass er den upload speed anzeigt. Ich habe probiert einfach alle "MibRow.dwInOctets" in "MibRow.dwoutOctets" umzuschrieben, aber nun zeigt er so gut wie immer 0 an.
Dieser code benötigt noch bestimmte IP Headers "http://www.delphipraxis.net/internal_redirect.php?t=4548&highlight=mibrow+dwou toctets"

nun der code in der download form, kann mir da jemand tipps geben wie ich das richtig mache?

Delphi-Quellcode:

unit Unit1; 

interface 

uses 
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, StdCtrls,Winsock, 
  IpExport, 
  IpHlpApi, 
  IpTypes, 
  IpIfConst, 
  IpRtrMib, ExtCtrls; 

type 
  TForm1 = class(TForm) 
    Timer1: TTimer; 
    Label1: TLabel; 
    procedure Timer1Timer(Sender: TObject); 


  private 
    { Private declarations } 
  public 
    { Public declarations } 
  end; 

var 
  Form1: TForm1; 
  old: integer; 

implementation 

{$R *.dfm} 

procedure TForm1.Timer1Timer(Sender: TObject); 
var MibRow: TMibIfRow; 
IntfTable: PMibIfTable; 
Size: DWORD; 
I: Integer; 
wert:integer; 
begin 
Size := 0; 
if GetIfTable(nil, Size, True) <> ERROR_INSUFFICIENT_BUFFER then Exit; 
  IntfTable := AllocMem(Size); 
  try 
    if GetIfTable(IntfTable, Size, True) = NO_ERROR then 
    begin 
      for I := 0 to IntfTable^.dwNumEntries - 1 do 
      begin 
     {$R-}MibRow := IntfTable.Table[I];{$R+} 
        if MibRow.dwType <> MIB_IF_TYPE_ETHERNET then Continue; // oder MIB_IF_TYPE_PPP 
       if i = 1 then begin  // Welche Verbindung 
       wert := MibRow.dwInOctets - old; 


                      label1.caption := floattostr(round(Wert /1024 *100)/100) + ' KB/s'; 
                     old := MibRow.dwInOctets 

                     end; 
  end; 
    end; 


    finally 
    FreeMem(IntfTable); 
  end; 

end; 


end.