caption:=Trim(TMibIfTable(_p^).table[i].bDescr);

procedure TForm1.Timer1Timer(Sender: TObject);
var
 _MibIfTable:PMibIfTable;// в программе объявлено, что PMibIfTable = ^TMibIfTable;
 _P:Pointer;
  i:integer;
 _buflen:dword;
 _error:dword;
begin
listview1.Items.Clear;
_buflen:=sizeof(_MibIfTable^);
New(_MibIfTable);
_P:=_MibIfTable;
_error:=GetIfTable(_MibIfTable, @_buflen, false);

if _error <> NO_ERROR then
 begin
  ShowMessage('Произошла ошибка!');
  Exit;
 end;

for i:=0 to TMibIfTable(_P^).dwNumEntries-1 do
 with ListView1.Items.Add do
  begin
   caption:=Trim(TMibIfTable(_p^).table[i].bDescr);
   subitems.Add(GetInterfaceType(TMibIfTable(_P^).table[i].dwtype));
   subitems.Add(GetStrMac(TMacAddress(TMibIfTable(_p^).Table[i].bPhysAddr),
               TMibIfTable(_p^).table[i].dwPhysAddrLen));
   subitems.add(SpeedToStr(TMibIfTable(_p^).table[i].dwSpeed));
   subitems.Add(Traff(TMibIfTable(_p^).table[i].dwOutOctets));
   subitems.Add(Traff(TMibIfTable(_p^).table[i].dwInOctets));
   subitems.Add(IntToStr(TMibIfTable(_p^).table[i].dwOutErrors));
   subitems.Add(IntToStr(TMibIfTable(_p^).table[i].dwInErrors));
  end;
dispose(_MibIfTable);

end;