function GetIp(Host: AnsiString): string;
var
WSAData: TWSADATA;
HostEnt: phostent;
begin
Result:= '';
if WSAStartup(MAKEWORD(1, 1), WSADATA) = 0 then
begin
HostEnt:= gethostbyname(PAnsiChar(Host));
if HostEnt <> nil then
Result:= inet_ntoa(PInAddr(HostEnt.h_addr_list^)^);
WSACleanup;
end;
end;