anchor.diff:      procedure AddError (const aMessage: String);
       procedure AddWarning (const aMessage: String);
       procedure AddInfo (const aMessage: String);
  -    procedure GetResultsAsStrings(aResults : TStringList);
  +    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
  
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:   TPerformedOperationResultsAsLog = class (IPerformedOperationResults)
    strict private
      FList : TStringList;
      FWarnings : Word;
      FErrors : Word;
      function GetMessages: TStrings;
    public
      constructor Create;
  