anchor.diff:    strict private
       FFileName : String;
       FFileData : TMemoryStream;
  +  private
  +    procedure Analyze;
     public
       constructor Create;
       destructor Destroy; override;
  
positive.code: end;
  
  { TReceivedMailAttachment }
  
  constructor TReceivedMailAttachment.Create;
  begin
  
negative.code:       newAttachment := aReceivedMail.AddAttachment;
        TIdAttachment(aIdMessage.MessageParts.Items[i]).SaveToStream(newAttachment.FileData);
        newAttachment.FileName := TIdAttachment(aIdMessage.MessageParts.Items[i]).FileName;
        newAttachment.Analyze;
      end
      else if aIdMessage.MessageParts.Items[i] is TIdText then
      begin
  