如何定义TControl类对象的事件?(100分)

我在某程序中实现动态控件，但事先并控件类型，现有如下代码：
procedure click(Sender: TObject);
......

procedure TForm1.Button1Click(Sender: TObject);
var
t:TControl;
begin
t:=TControl.Create(self);
但我想加入如下代码:
t.onClick:=click;
时发生错误，但TControl不是有onClick事件吗？为什么不能这样赋值？如想
完成这项目的，我该怎么办？

TControl的onclick事件是声明为protected, 所以你不能直接用

一定要用的话, 可以从TControl继承一个

TMycontrol = class(Tcontrol)

什么不用加,就可以使用protected的事件了

谢谢yifeng，果然一试即爽!