Не отправляется e-mail

Smtp.Username:='LOGIN@mail.ru';
Smtp.Password:='PASSWORD';
Smtp.AuthenticationType:=atLogin; // atNone
Smtp.ASCIIFilter:=true;
MailMessage.From.Text:='LOGIN@mail.ru';
MailMessage.Subject:='TEMA E-MAIL'; // ????
MailMessage.From.Address:='LOGIN@mail.ru'; // ????? ???????????
MailMessage.Recipients.EMailAddresses:='LOGIN@mail.ru';
MailMessage.Body.Text:='TEXT EMAIL'; // ????? ?????????
 
try
  try
   SMTP.Connect;
   SMTP.Send(MailMessage);
   ShowMessage('OK!');
   except on E:Exception do
   begin
     ShowMessage('ERROR - '+E.Message +#10#9 + 'PISMO NT OTPRAVLENO');
   end;
 end;
 finally
 if SMTP.Connected
  then SMTP.Disconnect;
 end;

begin
 with idSmtp1 do begin
Host:= 'smtp.yandex.ru';
Port:=587;
Username:='user'; 
Password:='65465456'; 
AuthType :=satDefault;
end;
 with idMessage1 do begin
CharSet :='koi8-r'; 
From.Text:='user@yandex.ru';
Subject:='Test';
From.Address:='user@yandex.ru';
Recipients.EMailAddresses:='user@yandex.ru';
Body.Text:=Memo1.Text; 
IdSMTP1.USeTLS:=utUseExplicitTLS;
idSMTP1.IOHandler:=IdSSLIOHandlerSocketOpenSSL1;
end;
 
 try
  try
   idSmtp1.Connect;
   idSmtp1.Send(idMessage1);
   ShowMessage('Письмо отправлено!');
  except on E:Exception do
   begin
    ShowMessage('Статус отправки: ERROR - '+E.Message +#10#9 + 'Письмо не отправлено');
   end;
  end;
 finally
  if idSmtp1.Connected
  then idSmtp1.Disconnect;
 end;

From.Text:='user@yandex.ru';
From.Address:='user@yandex.ru';
Recipients.EMailAddresses:='user@yandex.ru';