uses
  .... IDSSLOPENSSL,IdExplicitTLSClientServerBase,IdIOHandlerStack; 
......
procedure TEmailSender.SetConnected(const Value: boolean);
begin
  if Value then 
  begin
    fsmtp.Host := 'smtp.mail.ru';
    fsmtp.Port := 465;
    fsmtp.username := 'мойадрес@mail.ru';
    fsmtp.password := 'паролькакойто';

    Fsmtp.IOHandler :=  TIdSSLIOHandlerSocketOpenSSL.Create(fsmtp);
    (Fsmtp.iohandler as TIdSSLIOHandlerSocketOpenSSL).SSLOptions.Method := sslvTLSv1;
    (Fsmtp.iohandler as TIdSSLIOHandlerSocketOpenSSL).SSLOptions.Mode := sslmUnassigned;
    (Fsmtp.iohandler as TIdSSLIOHandlerSocketOpenSSL).defaultport := 0;
    fsmtp.UseTLS := utUseImplicitTLS;

    fSMTP.Connect;
  end
  else fSMTP.Disconnect
end;

Procedure TEmailSender.SendMail;
Begin
    With FMsgSend Do {TIDMessage}
    Begin
      Priority := mpNormal;
      From.Name := 'я';
      from.Address := 'мойадрес@mail.ru';
      ReplyTo.EMailAddresses := From.Text;
      Recipients.EMailAddresses := 'кому@куда.ru';
      Subject := 'тест';
      Body.Text := 'А привет!';

      if AttachFile>'' then TIDAttachmentFile.create(MessageParts,AttachFile);
    End;

    FSMTP.AuthType := satDefault;

    fsmtp.ConnectTimeout := 60000;
    fsmtp.ReadTimeout := 60000;

    SetConnected(true);
    FSMTP.Send(FMsgSend);

End;