anchor.diff:          if tmpSMTP.Port = SMTP_PORT_EXPLICIT_TLS then
             tmpSMTP.UseTLS := utUseExplicitTLS
           else
  -          tmpSMTP.UseTLS := utUseImplicitTLS;
  +          if FTLSConnection then
  +            tmpSMTP.UseTLS := utUseExplicitTLS
  +          else
  +            tmpSMTP.UseTLS := utUseImplicitTLS;
  +      end
  +      else if FTLSConnection then
  +      begin
  +        AddSSLHandler(tmpSMTP);
  +
  +        tmpSMTP.UseTLS := utUseExplicitTLS;
         end;
   
         tmpSMTP.ConnectTimeout:= 5000;
  
positive.code:   // https://www.indyproject.org/2008/01/16/new-html-message-builder-class/
    // https://www.indyproject.org/2005/08/17/html-messages/
    // https://stackoverflow.com/questions/18541577/using-indy-10-with-exchange-smtp-server
  
    htmlMessageBuilder := TIdMessageBuilderHtml.Create;
    tmpMessage := TIdMessage.Create(nil);
  
negative.code:     FHTML: TStringList;
      FPlainText : TStringList;
      FSSLConnection : boolean;
      FTLSConnection : boolean;
    strict private
      procedure AddSSLHandler(aSMTP : TIdSMTP);
      procedure InitSASL(aSMTP : TIdSMTP; const aUserName, aPassword : String);
  