anchor.diff:      FSenderMailAddress: String;
       FRecipients: String;
       FSubject: String;
  -    FImageFiles : TStringList;
  -    FImageReferences : TStringList;
  +    FHTMLImages : TObjectList;
  +    FAttachments : TObjectList;
       FHTML: TStringList;
     public
       constructor Create;
  
positive.code: interface
  
  uses
    Classes;
  
  type
    { TSendMail }
  
negative.code:   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
  