我设置了一个参数[存注册表]，用来控制CXGRID在分组后时候直接展开。但是不知道写在哪里？

我设置了一个参数[存注册表]，用来控制CXGRID在分组后时候直接展开。但是不知道写在哪里？
我写在DATAVIEW的DBTableDataControllerGroupingChanged里面
if Trim(ReadReg(CONSTREGUSERPATH,CONSTAUTOEXPAND,'0'))='0' then
    DBTable.ViewData.Expand(True)
  else
    DBTable.ViewData.Expand(False);    但是运行后会出错，不知道如何解决，