Fórum DELPHI XE6 - ENVIO DE EMAIL - ERRO #487694

    IdSMTP1: TIdSMTP;
    IdMessage1: TIdMessage;
    IdSSLIOHandlerSocketOpenSSL1: TIdSSLIOHandlerSocketOpenSSL;
[code]

esse é o meu codigo:

[code]
procedure TForm1.Button1Click(Sender: TObject);
begin
IdSMTP1.Port:=465;
IdSMTP1.Host:='smtp.mail.yahoo.com.br';//seu servidor de e-mail
IdSMTP1.Username:= 'email do remetente'; //seu usuario
IdSMTP1.Password:='senha'; //senha
//IdSMTP1.IOHandler := IdSSLIOHandlerSocketOpenSSL1;
//IdSMTP1.Authenticate;
IdSMTP1.Connect;

//O seu endereço de e-mail
IdMessage1.From.Address := 'email do remetente';
IdMessage1.Recipients.EMailAddresses := 'email do destinatário';


//O assunto da mensagem
IdMessage1.Subject :='assunto '  ;
//conteudo da mensagem
IdMessage1.Body.Add('texto'); //mensagem....

try
IdSMTP1.Send(IdMessage1);
finally
IdSMTP1.Disconnect;
end;
Application.MessageBox('Email enviado com sucesso!', 'Confirmação', MB_ICONINFORMATION +   MB_OK);
end;