Components for Delphi and C++ Builder.

procedure TForm1.DBGridEh1DataGroupGetFooterParams(Sender: TCustomDBGridEh;
  GroupDataTreeNode: TGroupDataTreeNodeEh;
  FooterColumnItem: TGridDataGroupFooterColumnItemEh;
  Params: TGroupFooterParamsEh);
begin
  if GroupDataTreeNode.Level = 0 then //Totallevel footer
  begin
    if (TColumnEh(FooterColumnItem.Column).FieldName = 'Area') and
       (Double(Params.Value) > 40000000)
    then
      Params.Font.Color := clRed;
  end;
end;