Delphi2009, использование библиотеки IpHlpApi.dll

procedure TMainForm.Timer1Timer(Sender: TObject);
var
  Table     : TMibIfTable;
  FLibHandle    : THandle;
  i         : Integer;
  Size      : Integer;
begin
    application.processmessages();
    wget;
  lvTraffic.Items.BeginUpdate;
  lvTraffic.Items.Clear;  //Очищаем список
  FLibHandle := LoadLibrary('IPHLPAPI.DLL'); //Загружаем библиотеку
  if FLibHandle = 0 then Exit;
  @GetIfTable := GetProcAddress(FLibHandle, 'GetIfTable');
  if not Assigned(GetIfTable) then
  begin
    FreeLibrary(FLibHandle);
    Close;
  end;

  Size := SizeOf(Table);
  if GetIfTable(@Table, @Size, False ) = 0 then //Выполняем функцию
    for i:= 0 to Table.dwNumEntries-1 do begin
      with lvTraffic.Items.Add do begin //Выводим результаты
        Caption := String(Table.Table.bDescr); //Наименование интерфейса
        SubItems.Add(GetMAC(TMAC(Table.Table.bPhysAddr),
          Table.Table.dwPhysAddrLen)); //MAC адрес
        SubItems.Add(IntToStr(Table.Table.dwInOctets)); //Всего принято байт
        SubItems.Add(IntToStr(Table.Table.dwOutOctets)); //Всего отправлено байт
      end;
    end;
  lvTraffic.Items.EndUpdate;
  FreeLibrary(FLibHandle);
end;