function GetHostName:String;

var

  ComputerName: array[..MAX_COMPUTERNAME_LENGTH+] of char;

  Size: Cardinal;

begin

  result:='';

  Size := MAX_COMPUTERNAME_LENGTH+;

  GetComputerName(ComputerName, Size);

  Result:=StrPas(ComputerName);

end;

function NameToIP(Name:string):String;

var

  WSAData: TWSAData;

  Client_HostEnt: PHostEnt;

begin

  result:='';

  WSAStartup(, WSAData);

  Client_HostEnt := GetHostByName(PChar(Name));

  if Client_HostEnt <> nil then

  begin

    with Client_HostEnt^ do

    result:= Format('%d.%d.%d.%d',[Byte(h_addr^[]), Byte(h_addr^[]),

    Byte(h_addr^[]), Byte(h_addr^[])]);

  end;

  WSACleanup;

end;