Fórum Socker Error 10060. Connection Timed Out. #488501

Problema com Envio de E-mail usando o Yahoo para outros Servidores de E-mails...

SMTP.AuthType := satDefault;
SMTP.IOHandler := IdSSLIOHandlerSocketOpenSSL1;
SMTP.UseTLS := utUseImplicitTLS;
IdSSLIOHandlerSocketOpenSSL1.DefaultPort := 465;
IdSSLIOHandlerSocketOpenSSL1.SSLOptions.Method := sslvSSLv3;
IdSSLIOHandlerSocketOpenSSL1.SSLOptions.Mode := sslmClient;

SMTP.Username := 'Email@yahoo.com.br';
SMTP.Password := 'senha';
SMTP.Host := 'smtp.mail.yahoo.com.br';

SMTP.Port := 465;
SMTP.UseEhlo := True;
SMTP.UseVerp := True;
SMTP.ReadTimeout := 10000;

with IdMsgSend do begin
From.Text := 'para';
From.Address := 'para';
CharSet := 'UTF-8';
ExtraHeaders.Clear;
end;
SMTP.Authenticate;
SMTP.Connect;
try
SMTP.Send(IdMsgSend);
finally
if SMTP.Connected then begin
Sleep(6000);
Application.ProcessMessages;
SMTP.Disconnect;
end;
end;

Algúem tem alguma dica...