anchor.diff:    TPerformedOperationResultsAsLog = class (IPerformedOperationResults)
     strict private
       FList : TStringList;
  +    FWarnings : Word;
  +    FErrors : Word;
       function GetMessages: TStrings;
     public
       constructor Create;
  
positive.code: procedure TPerformedOperationResultsAsLog.AddError(const aMessage: String);
  begin
    FList.Append('[ERROR] ' + aMessage);
  end;
  
  procedure TPerformedOperationResultsAsLog.AddWarning(const aMessage: String);
  begin
    FList.Append ('[WARNING] ' + aMessage);
  end;
  
  procedure TPerformedOperationResultsAsLog.AddInfo(const aMessage: String);
  
negative.code:     procedure AddError (const aMessage: String);
      procedure AddWarning (const aMessage: String);
      procedure AddInfo (const aMessage: String);
      procedure AddResult (const aMessage: String);
      procedure GetMessagesAsStrings(aResults : TStringList);
    end;
  
  
  