有关DBGridEh中复选框的问题

准备在DBGridEh显示数据库中数据的同时，在每一行前面加一列用于显示复选框，然后可以进行批量删除操作，我的设置如下：
dbgrdh1.Columns[0].Checkboxes := True;
dbgrdh1.Columns[0].CheckboxState := cbUnchecked;
dbgrdh1.Columns[0].KeyList.Clear;
dbgrdh1.Columns[0].KeyList.Add('0');
dbgrdh1.Columns[0].KeyList.Add('1');
dbgrdh1.Columns[0].ReadOnly := False;
dbgrdh1.Columns[0].alwaysshoweditbutton := True;

选择事件：
procedure TFormEditRecord.dbgrdh1CellClick(Column: TColumnEh);
begin
  if Column.FieldName = 'fselect' then
  begin
  if dbgrdh1.Columns[0].CheckboxState = cbUnchecked then
  dbgrdh1.Columns[0].CheckboxState := cbChecked
  else
  dbgrdh1.Columns[0].CheckboxState := cbUnchecked;
  end;
end;
运行之后可以显示出来复选框，可是点击之后并没有选择，请问这个问题要怎么解决？急求，解决问题即结贴送分，只有40分

Delphi(Pascal) code

dbgrdh1.Columns[0].Checkboxes := True;
dbgrdh1.Columns[0].CheckboxState := cbUnchecked;
dbgrdh1.Columns[0].KeyList.Clear;
dbgrdh1.Columns[0].KeyList.Add('0');
dbgrdh1.Columns[0].KeyList.Add('1');
dbgrdh1.Columns[0].ReadOnly := False;
dbgrdh1.Columns[0].alwaysshoweditbutton := True;

这段代码不要 
 把dbgrideh的columns0的checkbox设置成true、keylist设置成 '0' '1' 、readonly设置成false！
试试吧 我的这样子没问题！