Параметры группировки cxGrid

procedure TMain.BitBtn1Click(Sender: TObject);
var
  AMemoryStream: TMemoryStream;
begin
  if SaveDialog1.Execute then
  begin
    AMemoryStream := TMemoryStream.Create;
    try
      cxDBPivotGrid1.StoreToStream(AMemoryStream);
      AMemoryStream.SaveToFile(SaveDialog1.Filename);
    finally
      AMemoryStream.Free;
    end;
  end;
end;

procedure TMain.BitBtn2Click(Sender: TObject);
 
var
  AMemoryStream: TMemoryStream;
begin
 AMemoryStream := TMemoryStream.Create;
  try
    if OpenDialog1.Execute then
    begin
      AMemoryStream.LoadFromFile(OpenDialog1.FileName);
      cxDBPivotGrid1.RestoreFromStream(AMemoryStream);
    end;
  finally
     AMemoryStream.Free;
  end;
 
end;

procedure TMainn.ExcelClick(Sender: TObject);
 // uses -- cxExportPivotGridLink
  var
 SaveDialog: TSaveDialog;
begin
 if not Assigned(cxDBPivotGrid1) then
 Exit;
 SaveDialog := TSaveDialog.Create(Self);
 try
  SaveDialog.Name := 'SaveDialog';
  SaveDialog.DefaultExt := 'XLS';
  SaveDialog.Filter := 'MS-Excel-Files (*.XLS)|*.XLS|XML-Files (*.XML)|*.HTM|HTML-Files (*.HTM)|*.HTM|Text-Files (*.TXT)|*.TXT|All Files (*.*)|*.*';
  SaveDialog.Options := [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist];
  if SaveDialog.Execute then
 if SaveDialog.FileName <> '' then
 begin
 if (Pos('.XLS', UpperCase(SaveDialog.FileName)) = Length(SaveDialog.FileName) - 3) then
 cxExportPivotGridToExcel(SaveDialog.FileName, cxDBPivotGrid1)
 else if (Pos('.XML', UpperCase(SaveDialog.FileName)) = Length(SaveDialog.FileName) - 3) then
 cxExportPivotGridToXML(SaveDialog.FileName, cxDBPivotGrid1)
 else if ((Pos('.HTM', UpperCase(SaveDialog.FileName)) = Length(SaveDialog.FileName) - 3) or
( Pos('.HTML', UpperCase(SaveDialog.FileName)) = Length(SaveDialog.FileName) - 4)) then
 cxExportPivotGridToHTML(SaveDialog.FileName, cxDBPivotGrid1)
 else
 cxExportPivotGridToText(SaveDialog.FileName, cxDBPivotGrid1);
end;
 finally
  SaveDialog.Free;
 end;
end;