Delphi - Conoscere l'ip della propria macchina?

Scusate, vorrei sapere come fare, tramite un comando delphi, a conoscere l'indirizzo ip del mio computer per poi visualizzarlo a video...?
p.s. non intendo l'indirizzo che sia quando vai in internet, che puoi conoscere anche da siti tipo questo: unina2.it/assistenza/asp/…
ma intendo quello della rete lan a cui tu sei connesso e che ti viene assegnato (quindi l'indirizzo privato della macchina)...come fare?

prova questa funzione

function GetIPFromHost
(var HostName, IPaddr, WSAErr: string): Boolean; 
type
  Name = array[0..100] of Char; 
  PName = ^Name; 
var 
  HEnt: pHostEnt;
  HName: PName; 
  WSAData: TWSAData; 
  i: Integer; 
begin 
  Result := False;     
  if WSAStartup(01, WSAData) <> 0 then begin 
    WSAErr := 'Winsock is not responding."'; 
    Exit; 
  end; 
  IPaddr := ''; 
  New(HName); 
  if GetHostName(HName^, SizeOf(Name)) = 0 then
  begin 
    HostName := StrPas(HName^); 
    HEnt := GetHostByName(HName^); 
    for i := 0 to HEnt^.h_length - 1 do 
     IPaddr :=
      Concat(IPaddr,
      IntToStr(Ord(HEnt^.h_addr_list^[i])) + '.'); 
    SetLength(IPaddr, Length(IPaddr) - 1); 
    Result := True; 
  end
  else begin 
   case WSAGetLastError of
    WSANOTINITIALISED:WSAErr:='WSANotInitialised'; 
    WSAENETDOWN      :WSAErr:='WSAENetDown'; 
    WSAEINPROGRESS   :WSAErr:='WSAEInProgress'; 
   end; 
  end; 
  Dispose(HName); 
  WSACleanup; 
end;