动态生成空件的事件问题

Question

with ADOQuery2 do begin
.........     //读表生成控件
    while not Eof do begin
        with Tcheckbox.Create(self) do begin
            Parent := Panel1;
            Caption := FieldByName('chck').Value;
            Left := E;
            E := E + 160;
            Top := H + 35;
            onclick:=CheckProc; //调用自定义过程
            if Checked=true then begin
             .....
            end;            
..........
procedure TForm2.CheckProc (Sender:TObject);
begin
      改变动态生成的某个checkbox的checked的属性，该如何写？？？？？
 end;

Answer 1

在创建时给Name属性赋值或者用控件数组就可以方便的访问这些checkbox

Answer 2

tcheckbox(panel1.findcomponent('你生成的checkbox名字')).checked := true;

Answer 3

加入这条语句:
tcheckbox(panel1.findcomponent('你创建的checkbox的名字')).checked := true or false;