anchor.diff:  
       procedure CalculateHierarchy;
       procedure Calculate;
  -    procedure Clear;
  +    procedure Clear(const aClearSettings : boolean);
   
       // internal or test functions
       function GetRecords (const aVerticalKeys, aHorizontalKeys : TStringList): TCardinalList; overload;
  
positive.code:   public
      constructor Create;
      destructor Destroy; override;
      function GetSubIndex (const aKey : string): TmKeysIndex;
  
      property KeysValues : TStringList read FKeysValues;
    end;
  
    { TKeyValuesForGroupByDef }
  
negative.code: procedure TmKeysIndex.Clear;
  begin
    FKeysDictionary.Clear;
    FKeysValuesDictionary.Clear;;
    FKeysValues.Clear;;
  end;
  
  