anchor.diff:        ssl.Host := chooseSMTPHost(direct);
         ssl.MaxLineAction := maException;
         ssl.Port := StrToInt(chooseSMTPPort(direct));
  -      ssl.SSLOptions.Method := sslvTLSv1;
  +      ssl.SSLOptions.Method := sslvTLSv1_2;
         ssl.SSLOptions.Mode := sslmUnassigned;
         ssl.SSLOptions.VerifyMode := [];
         ssl.SSLOptions.VerifyDepth := 0;
  
positive.code:       ssl.Host := settings.DirectHost;
        ssl.MaxLineAction := maException;
        ssl.Port := StrToInt(settings.DirectPort);
        ssl.SSLOptions.Method := sslvTLSv1;
        ssl.SSLOptions.Mode := sslmUnassigned;
        ssl.SSLOptions.VerifyMode := [];
        ssl.SSLOptions.VerifyDepth := 0;
  
negative.code:         ssl.Host := settings.DirectPopHost;
          ssl.MaxLineAction := maException;
          ssl.Port := StrToInt(settings.DirectPopPort);
          ssl.SSLOptions.Method := sslvTLSv1_2;
          ssl.SSLOptions.Mode := sslmUnassigned;
          ssl.SSLOptions.VerifyMode := [];
          ssl.SSLOptions.VerifyDepth := 0;
  