__fastcall TForm1::TForm1(TComponent* Owner)
	: TForm(Owner)
{

dbg=new TDBGridEh(this);

dbg->Align=alClient;
dbg->Parent=this;
dbg->DataSource=DataSource1;
dbg->FooterRowCount= 1 ;

col=dbg->Columns->Add();
col->FieldName="KVO_NAME";
col->Footer->ValueType=fvtStaticText;
col->Footer->Value="Всего";

TColumnEh *col=dbg->Columns->Add();
col->FieldName="KVO";
col->Footer->FieldName="KVO";
col->Footer->ValueType=fvtSum;

dbg->SumList->Active=true;

ADODataSet1->Connection=Global::adoCon;
ADODataSet1->CommandText=
"SELECT KVO_NAME,KVO FROM NSI02 ORDER BY KVO";
ADODataSet1->Active=true;

}
//---------------------------------------------------------------------------

class TDBGridEhP : public TDBGridEh
{
public:
	__fastcall TDBGridEhP(TComponent* Owner);
};

__fastcall TDBGridEhP::TDBGridEhP(Classes::TComponent* Owner)
	: TDBGridEh(Owner)
{
}
//---------------------------------------------------------------------------

__fastcall TForm1::TForm1(TComponent* Owner)
	: TForm(Owner)
{

dbg=new TDBGridEhP(this);

. . . далее все то же
}
//---------------------------------------------------------------------------