Группа: cps.inprise.delphi
Q: Как программно узнать IP адрес машины?
Ага...и + лишних 150 Кб..вот это куда меньше :

function LocalIPS:TStrings;
type
  TaPInAddr = Array[0..10] of PInAddr;
  PaPInAddr = ^TaPInAddr;
var
  phe: PHostEnt;
  pptr: PaPInAddr;
  Buffer: Array[0..63] of Char;
  I: Integer;
  GInitData: TWSAData;
  bufIps:Tstrings;
begin
  bufIps:=TStringList.Create;//списокIP адресов
  bufIps.Clear;
  GetHostName(Buffer, SizeOf(Buffer));
  phe := GetHostByName(buffer);
  if phe = nil then Exit;
  pPtr := PaPInAddr(phe^.h_addr_list);
  I := 0;
  while pPtr^[I] <> nil do//добавляемв список адреса
   begin
    BufIps.Add(inet_ntoa(pptr^[I]^));
    Inc(I);
   end;
 LocalIps:=BufIps;
end;