Узнать свой IP

uses
  WinSock;

function GetLocalIP: String;
const WSVer = $101;
var
  wsaDat a: TWSAData;
  P: PHostEnt;
  Buf: array [0..127] of Char;
begin
  Result := '';
  if WSAStartup(WSVer, wsaData) = 0 then begin
    if GetHostName(@Buf, 128) = 0 then begin
      P := GetHostByName(@Buf);
      if P <> nil then Result := iNet_ntoa(PInAddr(p^.h_addr_list^)^);
    end;
    WSACleanup;
  end;
end;

uses
 ..., WinSock;

procedure TForm1.Button1Click(Sender: TObject);
type
 InAddr = Array[0..10] of PInAddr;
 TInAddr = ^InAddr;
var
 Host: PHostEnt;
 pPtr: TInAddr;
 Buffer: Array[0..63] of char;
 i: Integer;
 Socket: TWSAData;
begin
  ListBox1.Clear;
  WSAStartup( $101, Socket );
  GetHostName( Buffer, SizeOf( Buffer ) );
  Host := GetHostByName( buffer );
  if Host = nil then Exit;
  pPtr := TInAddr( Host^.h_addr_list );
  i := 0;
  while pPtr^[i] <> nil do
  begin
     ListBox1.Items.Add( inet_ntoa( pPtr^[i]^ ) );
     Inc( i );
  end;
  WSACleanup;
end;