如何控制动态生成的TCheckBox的onclick事件?

Question

我在程序中要动态生成大量的Tcheckbox控件，同时需要控制checkbox的onclick事件以进行相同操作，请问应如何写代码？

Answer 1

procedure abc;
begin
..........
end;checkbox.onclick:=abc;

Answer 2

不知何原因，我的定义是
procedure abc(sender:Tobject);
var  temp:Tcheckbox;
     i,j:integer;
begin
if Tcomponent(sender).ClassType=Tcheckbox then
  begin
    temp:=Tcomponent(sender) as Tcheckbox;
    i:=strtoint(copy(temp.Name,13,1));
    for j:=1 to 2 do
     drescheckbox[i,j].checked:=false;
    j:=strtoint(copy(temp.Name,14,1));
    drescheckbox[i,j].Checked:=true;
  end;
end;
调用为：
checkbox.onclick:=abc;
但发现击中的checkbox在不停的闪动,最后出错？
该如何办