请教关于cxGrid的有关问题

请问关于cxGrid的问题
cxgrid里面的一列设为checkBox，表示是否选中，窗体上一个用于全选cxgrid的checkBox的checkBox，具体该怎么写，看了公司的源码，点击反应特别慢，全选一两百条都得好几秒。最好能详细一点，谢谢了。
[解决办法]
procedure SetAllRecordChecked(fChecked: Boolean);
var i:Integer;
begin
  DetailTV.BeginUpdate;
  for i := 0 to DetailTV.DataController.RecordCount - 1 do
    begin
      DetailTV.DataController.SetValue(i,ColSelected.Index,fChecked);
    end;
  DetailTV.EndUpdate;
end;