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(aResults : TStringList);
     end;
   
   
  
positive.code: constructor TPerformedOperationResultsAsLog.Create;
  begin
    FList := TStringList.Create;
  end;
  
  destructor TPerformedOperationResultsAsLog.Destroy;
  
negative.code: 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);
  