TPageControl.tabsheet1 动态创建控件实怎么现单击事件？

TPageControl.tabsheet1 动态创建控件实如何现单击事件？？？
各位大侠：TPageControl.tabsheet1 随机动态创建N个checkbox控件，现在如何实现单击事件，我想点击checkbox 时添加到 listbox里？研究了没搞定，请大家帮帮忙，感谢

[解决办法]

Delphi(Pascal) code

提示下var cb:TCheckBox;begin cb := TCheckBox.Create(self); cb.Name := 'xxx'; cb.OnClick := CheckBoxClick;end;procedure ;procedure TForm1.CheckBoxClick(Sender: TObject);begin  ListBox1.Item.Add((Sender as TCheckBox).Caption);  end;