How get the local IP Address easy and fast?
"Como obter o endereço ip local de maneira rápida e fácil?"

See:
"Veja:"
------------------------------------------------------------------

  function getIPs: 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;
  begin
    WSAStartup($101, GInitData);
    Result := TstringList.Create;
    Result.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
      Result.Add(inet_ntoa(pptr^[I]^));
      Inc(I);
    end;
    WSACleanup;
  end;
------------------------------------------------------------------

This function not requires special units or triks to make your work
"Esta função não requer nada em especial para fazer seu trabalho"
:-)

Gérson, from Brazil.
"Gérson, do Brasil"