anchor.diff:        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;
  
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:     // output values
      property VerticalValues: TKeyValuesForGroupByDefs read FVerticalValues;
      property HorizontalValues: TKeyValuesForGroupByDefs read FHorizontalValues;
      property VerticalKeysIndex : TmKeysIndex read FVerticalKeysIndex;
      property HorizontalKeysIndex : TmKeysIndex read FHorizontalKeysIndex;
    end;
  
  
  