Delphi - Conseguir IP

Hola Amigos.

Con que rutina podria conseguir el numero IP de la maquina en donde esta trabajando el programa de Delphi.

Gracias.

Tenes que ejecutar ipconfig desde DOS, realiza una rutina que te ejecute esta linea c:\ipconfig y retenla en una ventana de delphi, talvez en un form nuevo

Añade al uses estas unidades WSocket, WinSock y ahi va una rutina
function GetIPinfo:String;
var
WSAData: TWSAData;
HostEnt: PHostEnt;
Nombre,Direccion : String;
begin
Result:='';
try
WSAStartup(2, WSAData);
SetLength(Nombre, 255);
Gethostname(PChar(Nombre), 255);
SetLength(Nombre, StrLen(PChar(Nombre)));
HostEnt := gethostbyname(PChar(Nombre));
with HostEnt^ do
Direccion := Format('%d.%d.%d.%d',[ Byte(h_addr^[0]), Byte(h_addr^[1]), Byte(h_addr^[2]), Byte(h_addr^[3])]);
Result:=Direccion;
finally
WSACleanup;
end;
end;
Esta funciona pero siquieres mas dilo.