IdSSLIOHandlerSocketOpenSSL1->MaxLineAction = maException;
         IdSSLIOHandlerSocketOpenSSL1->SSLOptions->Method = sslvTLSv1;
         IdSSLIOHandlerSocketOpenSSL1->SSLOptions->Mode = sslmUnassigned;
         IdSSLIOHandlerSocketOpenSSL1->SSLOptions->VerifyDepth = 0;

         SMTP->IOHandler = IdSSLIOHandlerSocketOpenSSL1;
         SMTP->Host = "smtp.mail.ru";
         SMTP->Port = 465;
         SMTP->Username = "mail@list.ru";
         SMTP->Password = "***";
         SMTP->UseTLS = utUseExplicitTLS;
         SMTP->ReadTimeout = 15000;
         SMTP->Connect();
         if(SMTP->Connected() == true)
           {
           ShowMessage("We have connect");
           TIdMessage *IdMessage1 = new TIdMessage();
           IdMessage1->Clear();
           IdMessage1->From->Address = "mail@yandex.ru";
           IdMessage1->Recipients->EMailAddresses = SMTP->Username;
           IdMessage1->Subject = L"Мое первое письмо в C++ на email";
           IdMessage1->Body->Text = L"Привет это мое сообщение!";
           SMTP->Send(IdMessage1);
           delete IdMessage1;
           delete IdSSLIOHandlerSocketOpenSSL1;
           SMTP->Disconnect();
           }
         else
         ShowMessage("Dont have connect");