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