Components for Delphi and C++ Builder.

procedure TfrDataGrouping.Button1Click(Sender: TObject);
var
  I: Integer;
  Root: TGroupDataTreeNodeEh;
  FooterRow: TGroupDataTreeNodeEh;
  FooterValue: Variant;
  Col: TColumnEh;
  s: String;
begin
  FormLog.Show;

  Col := DBGridEh1.FindFieldColumn('PartPrice');
  Root := DBGridEh1.DataGrouping.GroupDataTree.Root;
  for I := 0 to Root.Count - 1 do
  begin
    FooterRow := Root.Items[I].FooterItems[0];
    FooterValue := FooterRow.FooterValues[Col.Index];
    s := 'Group KeyValue = ' + VarToStr(Root.Items[I].KeyValue) + ';  FooterValue = ' + VarToStr(FooterValue);
    FormLog.Memo1.Lines.Add(s);
  end;
end;