anchor.diff:      FParent : TmKeysIndex;
     private
       procedure Clear;
  +    function GetValueList (const aKey : string): TCardinalList;
  +  public
  +    constructor Create;
  +    destructor Destroy; override;
       function GetSubIndex (const aKey : string): TmKeysIndex;
  -    function GetValueList (const aKey : string): TCardinalList;
  -  public
  -    constructor Create;
  -    destructor Destroy; override;
   
       property KeysValues : TStringList read FKeysValues;
     end;
  
positive.code:       if k < (FHorizontalGroupByDefs.Count - 1) then
          tmpIndex := tmpIndex.GetSubIndex(tmpKeyValue)
        else
          tmpIndex.GetValueList(tmpKeyValue).Add(i);
      end;
  
      tmpList := FRecordCoordinates.Find(currentCoord) as TCardinalList;
  
negative.code:       if k < (FVerticalGroupByDefs.Count - 1) then
          tmpIndex := tmpIndex.GetSubIndex(tmpKeyValue)
        else
        begin
          tmpIndex.GetValueList(tmpKeyValue).Add(i);
          tmpIndex.KeysValues.Add(tmpKeyValue);
        end;
      end;
  
      tmpIndex := FHorizontalKeysIndex;
  