IdMessage1->From->Address="kria2010@mail.ru";
IdMessage1->Recipients->EMailAddresses = "kria2010@mail.ru";//Адрес получателя
IdMessage1->Subject  = "Mail From Control";//Заголовок письма   UTF8Encode(subject.Text);
IdMessage1->Body->Assign(Memo1->Lines);//тут мы берем текст из Memo

IdSMTP1->Port = 465;
IdSMTP1->Host = "smtp.mail.ru"; //адрес smtp сервера
IdSMTP1->Username = "kria2010@mail.ru"; //Логин
IdSMTP1->Password = "F20142014"; //пароль
IdSMTP1->AuthType = satDefault;//с авторизацией

IdSSLIOHandlerSocketOpenSSL1->Destination=IdSMTP1->Host+":"+IntToStr(IdSMTP1->Port);
IdSSLIOHandlerSocketOpenSSL1->Host=IdSMTP1->Host;
IdSSLIOHandlerSocketOpenSSL1->Port=IdSMTP1->Port;
IdSSLIOHandlerSocketOpenSSL1->DefaultPort=0;
IdSSLIOHandlerSocketOpenSSL1->SSLOptions->Method=sslvTLSv1;
IdSSLIOHandlerSocketOpenSSL1->SSLOptions->Mode=sslmUnassigned;
IdSMTP1->IOHandler=IdSSLIOHandlerSocketOpenSSL1;
IdSMTP1->UseTLS=utUseExplicitTLS;

try //дальше собственно отправка и обработка кое каких исключений
   {
    try
       {
          if (IdSMTP1->Connected()) IdSMTP1->Disconnect();
              IdSMTP1->Connect();


			  //IdSMTP1->Send(IdMessage1);
	   }
       catch (Exception &exception)
            {
             IdSMTP1->Disconnect();
			 MessageDlg("Application, may not connected", mtError, TMsgDlgButtons() << mbYes, 0);
             Abort;
            }
             // My Code Here
    }
     catch (Exception &exception)
          {
           Application->ShowException(&exception);
           IdSMTP1->Disconnect();
		  }