function StrToAddr(Server: String): TInAddr;
var
  HostEnt: PHostEnt;
  InAddr: TInAddr;
begin
  HostEnt := GetHostByName(PChar(Server));
  FillChar(InAddr, SizeOf(InAddr), 0);
  if (HostEnt<>nil) then
                        begin
                          With InAddr, HostEnt^ do
                                                  begin
                                                    S_un_b.s_b1 := Byte(h_addr^[0]);
                                                    S_un_b.s_b2 := Byte(h_addr^[1]);
                                                    S_un_b.s_b3 := Byte(h_addr^[2]);
                                                    S_un_b.s_b4 := Byte(h_addr^[3]);
                                                  end;
                        end;
  Result := InAddr;
end;