SMTP.Host:=host_smtp;
            SMTP.Port:=StrToInt(port_smtp);
            SMTP.Username:=userID;
            SMTP.Password:=Password;

            IdSSLIOHandlerSocketOpenSSL_1 := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
            IdSSLIOHandlerSocketOpenSSL_1.Destination := SMTP.Host+':'+IntToStr(SMTP.Port);
            IdSSLIOHandlerSocketOpenSSL_1.Host := SMTP.Host;
            IdSSLIOHandlerSocketOpenSSL_1.Port := SMTP.Port;
            IdSSLIOHandlerSocketOpenSSL_1.DefaultPort := 0;
            IdSSLIOHandlerSocketOpenSSL_1.SSLOptions.Method := sslvTLSv1;
            IdSSLIOHandlerSocketOpenSSL_1.SSLOptions.Mode := sslmUnassigned;
            SMTP.IOHandler := IdSSLIOHandlerSocketOpenSSL_1;
            SMTP.UseTLS := utUseExplicitTLS;


            if SMTP.Connected=false then
               SMTP.Connect;

.......
           SMTP.Send(IdMsgSend);