anchor.diff:      function SetCCRecipients(const aRecipients: String): TSendMail;
       function SetBCCRecipients(const aRecipients: String): TSendMail;
       function SetSubject(const aSubject: String): TSendMail;
  +    function SetSSLConnection : TSendMail;
   
       function AddHTMLImageFile(const aFileName, aReferenceName: String): TSendMail;
       function AddHTMLImage(const aData : TStream; const aMIMEType: String; const aReferenceName : String): TSendMail;
  
positive.code:   tmp.Reference:= aReferenceName;
    tmp.MIMEType:= aMIMEType;
    Result:= Self;
  end;
  
  constructor TSendMail.Create;
  
negative.code:     FAttachments : TObjectList;
      FHTML: TStringList;
      FPlainText : TStringList;
      FSSLConnection : boolean;
    strict private
      procedure AddSSLHandler(aSMTP : TIdSMTP);
      procedure InitSASL(aSMTP : TIdSMTP; const aUserName, aPassword : String);
    public
      constructor Create;
      destructor Destroy; override;
  