anchor.diff:      FHTML: TStringList;
       FPlainText : TStringList;
       FSSLConnection : boolean;
  +    FTLSConnection : boolean;
     strict private
       procedure AddSSLHandler(aSMTP : TIdSMTP);
       procedure InitSASL(aSMTP : TIdSMTP; const aUserName, aPassword : String);
  
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:         if tmpSMTP.Port = SMTP_PORT_EXPLICIT_TLS then
            tmpSMTP.UseTLS := utUseExplicitTLS
          else
            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;
  