SSLHandler:= TIdSSLIOHandlerSocketOpenSSL.Create(idSMTP1);

    SSLHandler.MaxLineAction := maException;
    SSLHandler.SSLOptions.Method := sslvTLSv1;
    SSLHandler.SSLOptions.Mode := sslmUnassigned;
    SSLHandler.SSLOptions.VerifyMode := [];
    SSLHandler.SSLOptions.VerifyDepth := 0;

    idSMTP1.IOHandler:= SSLHandler;
    idSMTP1.Host := 'smtp.gmail.com';
    idSMTP1.Port := '587';
    idSMTP1.Username := 'user@gmail.com';
    idSMTP1.Password := 'password';
    idSMTP1.AuthType := satDefault;
    idSMTP1.UseTLS := utUseExplicitTLS;

    idMessage1.From.Text := 'text';
    idMessage1.Subject := 'subject';
    idMessage1.Recipients.EMailAddresses := 'cad2206@gmail.com'
   
    idSMTP1.Connect;
    idSMTP1.Send(idMessage1);

procedure TForm1.Button1Click(Sender: TObject);
var
 // variáveis e objetos necessários para o envio
 IdSSLIOHandlerSocket: TIdSSLIOHandlerSocketOpenSSL;
 IdSMTP: TIdSMTP;
 IdMessage: TIdMessage;
 IdText: TIdText;
 sAnexo: string;
begin
 // instanciação dos objetos
 IdSSLIOHandlerSocket := TIdSSLIOHandlerSocketOpenSSL.Create(Self);
 IdSMTP := TIdSMTP.Create(Self);
 IdMessage := TIdMessage.Create(Self);

 try
   // Configuração do protocolo SSL (TIdSSLIOHandlerSocketOpenSSL)
   IdSSLIOHandlerSocket.SSLOptions.Method := sslvSSLv23;
   IdSSLIOHandlerSocket.SSLOptions.Mode := sslmClient;

   // Configuração do servidor SMTP (TIdSMTP)
   IdSMTP.IOHandler := IdSSLIOHandlerSocket;
   IdSMTP.UseTLS := utUseImplicitTLS;
   IdSMTP.AuthType := satDefault;
   IdSMTP.Port := 465;
   IdSMTP.Host := 'smtp.gmail.com';
   IdSMTP.Username := 'user@gmail.com';
   IdSMTP.Password := 'pass';

   // Configuração da mensagem (TIdMessage)
   IdMessage.From.Address := 'user@gmail.com';
   IdMessage.From.Name := 'John Smith';
   IdMessage.ReplyTo.EMailAddresses := IdMessage.From.Address;
   IdMessage.Recipients.Add.Text := 'user@gmail.com';
   IdMessage.Subject := 'Hello World';
   IdMessage.Encoding := meMIME;

   // Configuração do corpo do email (TIdText)
   IdText := TIdText.Create(IdMessage.MessageParts);
   IdText.Body.Add('The body of the e-mail goes here');
   IdText.ContentType := 'text/plain; charset=iso-8859-1';

   // Conexão e autenticação
   try
     IdSMTP.Connect;
     IdSMTP.Authenticate;
   except
     on E:Exception do
     begin
       MessageDlg('Cannot authenticate: ' +
         E.Message, mtWarning, [mbOK], 0);
       Exit;
     end;
   end;

   // Envio da mensagem
   try
     IdSMTP.Send(IdMessage);
     MessageDlg('Message sent successfully!', mtInformation, [mbOK], 0);
   except
     On E:Exception do
     begin
       MessageDlg('Error while sending a message: ' +
         E.Message, mtWarning, [mbOK], 0);
     end;
   end;
 finally
   // liberação dos objetos da memória
   FreeAndNil(IdMessage);
   FreeAndNil(IdSSLIOHandlerSocket);
   FreeAndNil(IdSMTP);
 end;
end;
end.

//формируем тело сообщения
IdMessage1 := TIdMessage.Create;
IdMessage1.From.Address := 'test';
IdMessage1.Recipients.Add.Address:='test@gmail.com';
IdMessage1.Subject := UTF8Encode('test');
IdMessage1.Date:= now;

//настройка компонентов перед отправкой
IdSMTP := TIdSMTP.Create(nil);

IdSMTP.Host:=Form1.Edit1.Text;
IdSMTP.Port:=StrToInt(Form1.Edit2.Text);
IdSMTP.Username:=Form1.Edit3.Text;
IdSMTP.Password:=Form1.Edit4.Text;
IdSMTP.AuthType:=satDefault;

//для SSL
IdSSLIOHandlerSocketOpenSSL := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
IdSSLIOHandlerSocketOpenSSL.Destination := IdSMTP.Host+':'+IntToStr(IdSMTP.Port);
IdSSLIOHandlerSocketOpenSSL.Host := IdSMTP.Host;
IdSSLIOHandlerSocketOpenSSL.Port := IdSMTP.Port;
IdSSLIOHandlerSocketOpenSSL.DefaultPort := 0;
IdSSLIOHandlerSocketOpenSSL.SSLOptions.Mode := sslmUnassigned;

IdSMTP.IOHandler := IdSSLIOHandlerSocketOpenSSL;

case Form1.ComboBox2.ItemIndex of
     0: IdSSLIOHandlerSocketOpenSSL.SSLOptions.Method := sslvSSLv2;
     1: IdSSLIOHandlerSocketOpenSSL.SSLOptions.Method := sslvSSLv23;
     2: IdSSLIOHandlerSocketOpenSSL.SSLOptions.Method := sslvSSLv3;
     3: IdSSLIOHandlerSocketOpenSSL.SSLOptions.Method := sslvTLSv1
else
     raise Exception.Create('Выберите тип SSL');
end;

case Form1.ComboBox1.ItemIndex of
     0: IdSMTP.UseTLS := utUseExplicitTLS;
     1: IdSMTP.UseTLS := utUseImplicitTLS;
     2: IdSMTP.UseTLS := utUseRequireTLS;
     3: IdSMTP.UseTLS := utNoTLSSupport;
else
     raise Exception.Create('Выберите тип TLS');    
end;

try
 IdSMTP.Connect;
 if idSMTP.Connected then
  MessageBox(handle,pchar('Подключение к SMTP серверу успешно'), pchar('ee'), 48);
except
 MessageBox(handle,pchar('Ошибка подключения к SMTP Серверу'), pchar('ee'), 48);
 exit;
end;

IdSMTP.Send(IdMessage1);

Application.ProcessMessages;
IdSMTP.Disconnect;

idMessage1.Free;
IdSSLIOHandlerSocketOpenSSL.Free;
idSMTP.Free;
end;