Como descobrir o IP do Host Local com Delphi?

[argus 0]

Olá amigos,Preciso descobrir qual é o número ip do computador local utilizando o delhpi.Alguém poderia me dar umas dicas?Desde já agradeço

[Vinicius Callegaro 0]

...uses WinSock;....function TForm1.LocalIP: string;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 := '';  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:=StrPas(inet_ntoa(pptr^[i]^));	Inc(i);  end;  WSACleanup;end;{ Chamando a função }procedure TForm1.Button1Click(Sender: TObject);begin  ShowMessage(LocalIP);end;