DBGridEh1.FooterRowCount:=1;
DBGridEh1.SumList.Active:=True;
DBGridEh1.FootColor:=clInfoBk;
DBGridEh1.Columns[0].Footer.ValueType := fvtStaticText;
DBGridEh1.SumList.Active:=True;
DBGridEh1.FootColor:=clInfoBk;
DBGridEh1.Columns[0].Footer.ValueType := fvtStaticText;