动态创建的按钮组Click事件无效解决方法

动态创建的按钮组Click事件无效
//TbtnHotKey是自定义按钮,跟一般按钮那样使用就可以了
    public//btnList定义为public
        {   Public   declarations   }
        btnList:array   of   TbtnHotKey;


for   i:=0   to   9   do
        begin
            btnList[i]:=TbtnHotKey.Create(dept[i].DeptID,dept[i].DeptName,dept[i].DeptPhone,dept[i].PhoneState,dept[i].ShowNO);
btnList[i].parent:=panel1;
btnList[i].show;
//总之动态创建的按钮组是窗体全局的,而已已经成功创建出来.但是不会做事件处理

尝试这样做,结果没有效果,也不报错.

//声明
procedure   btnListClick(Sender:TObject);
//实现
procedure   TFormMain.btnListClick(Sender:TObject);
begin
    application.MessageBox(pchar(TbtnHotKey(sender).Caption), '系统提示 ');
end;


[解决办法]
btnList[i].Onclick := btnListClick;