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;

caption:=Trim(_MibIfTable.table[i].bDescr);

 pIfTable = (MIB_IFTABLE *) MALLOC(sizeof (MIB_IFTABLE));

GetIfInfo();
UpdateIfList();

procedure TForm2.tmrTimer(Sender: TObject);
var
dwSize : DWORD;
dwRetVal : DWORD;
i, j : Integer;
pIfTable : PMibIfTable;
pIfRow :  PMibIfRow; // pIfTable и dwSize вынесу позже в private
begin
 New(pIfTable);
 if pIfTable = Nil then exit;
 dwSize := sizeOf(TMibIfTable);
 if GetIfTable(pIfTable, @dwSize, False) = ERROR_INSUFFICIENT_BUFFER then
 begin
   Dispose(pIfTable);
   GetMem(pIfTable, dwSize);  // иначе будет как-то глупо вновь писать New(pIfTable)
   if pIfTable = Nil then exit;
 end;
 dwRetVal := GetIfTable(pIfTable, @dwSize, False);
 if dwRetVal <> NO_ERROR then exit;
   for i := 0  to pIfTable.dwNumEntries-1 do
   begin
     if not Flag then begin
       with lv.Items.Add do
       begin
         Caption := Trim(IntToStr(pIfTable.Table[i].dwIndex)+' '+pIfTable.Table[i].bDescr);
         // а тут дальнейшее заполнение
       end;
     end;
   end;
   if not Flag then Flag := True;
end;

foreach ifItem in pIfTable do
 if IsItemInList(ifItem) then ОбновитьЭлементИОтметитьКакОбновлённый();
 else ДобавитьЭлементИОтметитьКакОбновлённый();
 end;
end;
...
foreach liItem in list do
 if НеОтмеченКакОбновлённый(liItem) then УдлалитьИзСписка(liItem); end;
end;

procedure TForm2.tmrTimer(Sender: TObject);
var
dwSize : DWORD;
dwRetVal : DWORD;
i, j : Integer;
pIfTable : PMibIfTable;
pIfRow :  PMibIfRow; // pIfTable и dwSize вынесу позже в private
begin
 New(pIfTable);
 if pIfTable = Nil then exit;
 dwSize := sizeOf(TMibIfTable);
 if GetIfTable(pIfTable, @dwSize, False) = ERROR_INSUFFICIENT_BUFFER then
 begin
   Dispose(pIfTable);
   GetMem(pIfTable, dwSize);  // иначе будет как-то глупо вновь писать New(pIfTable)
   if pIfTable = Nil then exit;
 end;
 dwRetVal := GetIfTable(pIfTable, @dwSize, False);
 if dwRetVal <> NO_ERROR then exit;
   for i := 0  to pIfTable.dwNumEntries-1 do
   begin
     if not Flag then begin
       with lv.Items.Add do
       begin
         Caption := Trim(pIfTable.Table[i].bDescr);
         // а тут дальнейшее заполнение
         SubItems.Add('');
         SubItems.Add('');
         SubItems.Add(SpeedToStr(pIfTable.Table[i].dwSpeed));
       end;
     end
     else
     begin
       for j := 0 to pIfTable.dwNumEntries-1 do
       begin
         if Trim(pIfTable.Table[j].bDescr)=lv.Items[j].Caption then
         begin
           lv.Items[j].SubItems[3] := SpeedToStr(pIfTable.Table[i].dwSpeed);
           exit;
         end;
       end;
     end;
   end;
   if not Flag then Flag := True;
end;

var
 a: array [1..10] of Integer;
 item: Integer;
 cnt: Integer;
…
//foreach item in a do это:
for cnt := 0 to High(a) do
 item := a[cnt];
 ….
end;

— Цан, извини, а вот такие, с хоботками, это кто? — спросил Гедеван.
— Никто. Фитюльки.
— В каком смысле?
— Во всех. Болтают, что они тут раньше, до плюкан жили.  Но это так… Треп.