anchor.diff:    tmpValues : TmSummaryValues;
     summaryValue : TmSummaryValue;
   begin
  -  FVerticalValues.Clear;
  -  FHorizontalValues.Clear;
  -  FRecordCoordinates.Clear;
  -  FValues.Clear;
  +  Self.Clear;
   
     for i := 0 to FVerticalGroupByDefs.Count - 1 do
       FVerticalValues.Add;
  
positive.code:   Result := FList.Items[aIndex] as TmGroupByDef;
  end;
  
  { TmGroupByDef }
  
  constructor TmGroupByDef.Create;
  
negative.code: 
  type
  
    TmGroupByOperationKind = (gpoDistinct, gpoDateYear, gpoDateMonth, gpoDateTheMonth, gpoDateDay, gpoDateTheDay, gpoDateQuarter, gpoDateTheQuarter, gpoFirstLetter, goFormula);
  
    { TmGroupByDef }
  
  