uses Winsock; 

function GetIPFromHost(HostName:PChar): string; 
var 
	HEnt: pHostEnt; 
	WSAData: TWSAData; 
begin 
	WSAStartup($0101, WSAData);
	HEnt := gethostbyname(HostName);
	Result := inet_ntoa(PInAddr(HEnt^.h_addr_list^)^ );
	WSACleanup; 
end;