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:     FAttachments : TObjectList;
      FHTML: TStringList;
      FPlainText : TStringList;
    public
      constructor Create;
      destructor Destroy; override;
  
negative.code: begin
    FSubject:= aSubject;
    Result:= Self;
  end;
  
  function TSendMail.SetSSLConnection: TSendMail;
  begin
    FSSLConnection:= true;
    Result := Self;
  end;
  
  
  