anchor.diff:      function SetSenderMailAddress(const aMailAddress: String): TSendMail;
       function SetRecipients(const aRecipients: String): TSendMail;
       function SetSubject(const aSubject: String): TSendMail;
  -    function AddImageFile(const aFileName, aReferenceName: String): TSendMail;
  +
  +    function AddHTMLImageFile(const aFileName, aReferenceName: String): TSendMail;
  +    function AddHTMLImage(const aData : TStream; const aMIMEType: String; const aReferenceName : String): TSendMail;
  +    function AddHTMLJPEGImage(const aData : TStream; const aReferenceName : String): TSendMail;
  +    function AddHTMLPNGImage(const aData : TStream; const aReferenceName: String): TSendMail;
  +
  +    function AttachFile(const aFileName : String; const aReferenceName : String = ''): TSendMail;
  +    function AttachData(const aData : TStream; const aMIMEType: String; const aReferenceName: String = ''): TSendMail;
  +    function AttachExcelData(const aData : TStream; const aReferenceName: String = ''): TSendMail;
  +    function AttachPDFData(const aData : TStream; const aReferenceName: String = ''): TSendMail;
  +    function AttachTXTData(const aData : TStream; const aReferenceName: String = ''): TSendMail;
  +    function AttachXMLData(const aData : TStream; const aReferenceName: String = ''): TSendMail;
  +    function AttachZIPData(const aData : TStream; const aReferenceName: String = ''): TSendMail;
  +    function AttachWordData(const aData : TStream; const aReferenceName: String = ''): TSendMail;
  +
       function AddHTML(const aStrings: TStrings): TSendMail;
       function ClearHTML: TSendMail;
       function Send(out aErrorMessage: String): boolean;
  
positive.code:   error: Boolean;
    htmlMessageBuilder : TIdMessageBuilderHtml;
    i : integer;
  begin
    // https://www.indyproject.org/2008/01/16/new-html-message-builder-class/
    // https://www.indyproject.org/2005/08/17/html-messages/
  
negative.code:     FSenderMailAddress: String;
      FRecipients: String;
      FSubject: String;
      FHTMLImages : TObjectList;
      FAttachments : TObjectList;
      FHTML: TStringList;
    public
      constructor Create;
  