anchor.diff:  procedure TPerformedOperationResultsAsLog.AddError(const aMessage: String);
   begin
     FList.Append('[ERROR] ' + aMessage);
  +  inc (FErrors);
   end;
   
   procedure TPerformedOperationResultsAsLog.AddWarning(const aMessage: String);
   begin
     FList.Append ('[WARNING] ' + aMessage);
  +  inc (FWarnings);
   end;
   
   procedure TPerformedOperationResultsAsLog.AddInfo(const aMessage: String);
  
positive.code:   FList.Append ('[INFO] ' + aMessage);
  end;
  
  procedure TPerformedOperationResultsAsLog.GetResultsAsStrings(aResults: TStringList);
  begin
    aResults.Clear;
    aResults.AddStrings(FList);
  end;
  
  end.
  
negative.code:     procedure AddError (const aMessage: String);
      procedure AddWarning (const aMessage: String);
      procedure AddInfo (const aMessage: String);
      procedure AddResult (const aMessage: String);
      procedure GetMessagesAsStrings(aMessages : TStringList);
  
      property Messages : TStrings read GetMessages;
      property Warnings : Word read FWarnings;
      property Errors : Word read FErrors;
    end;
  
  implementation
  