function GetIP(Server: String): String;
var
  HostEnt: PHostEnt;
begin
  HostEnt := GetHostByName(PChar(Server));
  FillChar(InAddr, SizeOf(InAddr), 0);
  if (HostEnt<>nil) then
  With InAddr, HostEnt^ do
  Result:=IntToStr(Byte(h_addr^[0]))+'.'+IntToStr(Byte(h_addr^[1]))+'.'+IntToStr(Byte(h_addr^[2]))+'.'+IntToStr(Byte(h_addr^[3]));
end;