动态产生的控件数组（比如按钮）的事件过程写在哪里？

Question

我的意思就是在程序运行时，才能产生这些按钮数组控件，这些按钮在运行前是不存在的，所以，这些按钮的事件该怎样写
谢谢给个代码：
比如我按数组控件按钮1，出现文字为“1”消息框
      按数组控件按钮2，出现文字为“2”消息框
      消息框出现的数字为数组控件按钮的索引号
谢谢大家帮帮我

Answer 1

我的想法是重定向CLICK事件，根据caption属性做不同处理，或者根据TAG做不同处理

Answer 2

procedure fonclick(sender:Tobject)
begin
   case TButton(sender).tag of
   0:
   1:
   end;
end;Button[n].onclick:=fonclick;