Помогите с кодом (почему не работает ТРАФИК)

[KWN, lnc]

ВОТ ИСХОДНИК

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;

type
TForm1 = class(TForm)
Timer1: TTimer;
Button1: TButton;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
procedure Button1Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
FlibHandle: THandle;
dwInOctets :DWORD;
dwOutOctets :DWORD;
dwPhysAddrLen: DWORD;
bDescr : array[0..255] of Char;
bPhysAddr : array[0..7] of Byte;
GetIfTable: pointer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled:=True;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
type TMAC = array [0..7] of Byte;
function GetMAC(Value: TMAC; Length: DWORD): String;
var
i: Integer;
begin
if Length = 0 then Result := '00-00-00-00-00-00' else
begin
Result := '';
for i:= 0 to Length -2 do
Result := Result + IntToHex(Value[i],2)+'-';
Result := Result + IntToHex(Value[Length-1],2);
end;
end;
begin
FLibHandle := LoadLibrary('IPHLPAPI.DLL');
GetIfTable:=GetProcAddress(FLibHand le, 'GetIfTable');
Label1.Caption:='Входящий трафик: '+IntToStr(dwInOctets);
Label2.Caption:='Исходящий трафик: '+IntToStr(dwOutOctets);
Label3.Caption:='МАС-адрес: '+(GetMAC(TMAC(bPhysAddr),dwPhysAdd rLen));
FreeLibrary(FLibHandle);
end;

end.

[Пепел Феникса]

хм...и это весь код да?
он и не должен работать.