User Control delphi xe3

Estou com problema ao utilizar a funcao EnviaEsqueceuSenha
ja configurei tudo certinho as propriedades de email porta usuario etc
mas quando clico em esqueci senha retornta este erro:"Winsock GetHostName failed"

esta nesta funcao da unit unit UCALSMTPClient;
{$WARNINGS OFF}
function ALgetLocalHostName: String;
var
Buffer : pAnsichar;
WSAData : TWSAData;
begin
WSAData.wVersion := 0;
WSAStartup(MAKEWORD(2, 2), WSAData);
try
if gethostname(Buffer, SizeOf(Buffer)) <> 0 then
raise Exception.Create('Winsock GetHostName failed');
Result := StrPas(Buffer);
finally
if WSAData.wVersion = 2 then
WSACleanup;
end;
end;


alguem sabe o que pode ser ?