anchor.diff:    sysutils,
     IdSMTP, IdMessage, IdMessageBuilder;
   
  +type
  +  TAttachedFileType = (ftFile, ftStream);
  +
  +  TAttachedFile = class
  +  private
  +    FileType : TAttachedFileType;
  +    MIMEType : String;
  +    FileName : String;
  +    Reference : String;
  +    Data : TStream;
  +  end;
  +
  +
  +
   { TSendMail }
  +
  +function TSendMail.AddHTMLImage(const aData: TStream; const aMIMEType: String; const aReferenceName: String): TSendMail;
  +var
  +  tmp : TAttachedFile;
  +begin
  +  tmp := TAttachedFile.Create;
  +  FHTMLImages.Add(tmp);
  +  tmp.FileType:= ftStream;
  +  tmp.Data:= aData;
  +  tmp.Reference:= aReferenceName;
  +  tmp.MIMEType:= aMIMEType;
  +  Result:= Self;
  +end;
   
   constructor TSendMail.Create;
   begin
  
positive.code:     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 AddHTML(const aStrings: TStrings): TSendMail;
      function ClearHTML: TSendMail;
      function Send(out aErrorMessage: String): boolean;
  
negative.code:     FSenderMailAddress: String;
      FRecipients: String;
      FSubject: String;
      FHTMLImages : TObjectList;
      FAttachments : TObjectList;
      FHTML: TStringList;
    public
      constructor Create;
  