如何在dbgrideh中应用checkbox的值的改变?

我在dbgrideh中的一字段应用了checkbox，我的想法是这样的，当点击checkbox时，随着checkbox值的变化，做一些功能。我利用了TFrm1.Dbgrideh1CellClick(Column: TColumnEh)但是，不只点击checkbox时，在其他单元格点击时也会运行cellClick的程序。我不知道该处理我的程序呢？我找了好长时间没有找到？
begin
  if checkbox 选中 then begin
    procdure;
  end
  else begin
    procdure
  end
end
上面这段代码应该怎么应用呢？