INDY — отправка на емейл

procedure TfrmAbout.btnSendClick(Sender: TObject);
var
  SMTP    : TIdSMTP;
  msg     : TIdMessage;
  SSLOpen : TIdSSLIOHandlerSocketOpenSSL;
  oldcur: TCursor;
begin
 if Trim(Memo1.Lines.Text) ='' then
   begin
     ShowMessage(' Письмо пустой .!!! ');
     Memo1.SetFocus;
     Abort;
   end
   else
   //-------------------------
    oldcur := screen.Cursor;
    screen.Cursor := crHourGlass;
   //-------------------------
   try
    SMTP := TIdSMTP.Create(Application);
    SMTP.Host := 'smtp.mail.ru';
    SMTP.Port := 465;
    SMTP.AuthType := satDefault;
    SMTP.Username := '****"@mail.ru';
    SMTP.Password := '********';

    //--- SSL
    SSLOpen := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
    SSLOpen.Destination := SMTP.Host+':'+IntToStr(SMTP.Port);
    SSLOpen.Host := SMTP.Host;
    SSLOpen.Port := SMTP.Port;
    SSLOpen.DefaultPort := 0;
    SSLOpen.SSLOptions.Method := sslvSSLv23;
    SSLOpen.SSLOptions.Mode := sslmUnassigned;

    SMTP.IOHandler := SSLOpen;
    SMTP.UseTLS := utUseImplicitTLS;

    msg := TIdMessage.Create(Application);

    msg.Subject := 'Название темы';
    msg.From.Address := '****@mail.ru'; //  From= от куда
    msg.From.Name := 'xxxxxx ';  // Фио отправители
    msg.Recipients.EMailAddresses := 'Vasia@gmail.com';    //  Получатель

    msg.ContentType := 'text/plain; CharSet = UTF-8'; // Кодировка
    msg.Body.Text := AnsiToUtf8(Memo1.Lines.Text);

    SMTP.Connect;
    if SMTP.Connected then
      begin
        SMTP.Send(msg);
        ShowMessage ('Сообщение отправлено!');
      end else
        ShowMessage ('Не удалось отправить сообщение');
    SMTP.Disconnect();
    SMTP.Free;
    msg.Free;
   finally
       //------------------------------------
      screen.Cursor := oldcur;
      Memo1.Lines.Text := '';
   end;

end;