PHostName: PAnsiChar; hostname: PWideChar; GetMem(hostname, 2 * length(StrPas(PHostName)) + 2);       StringToWideChar(StrPas(PHostName), hostname, Length(StrPas(PHostName)) +         2);