dephi ActiveX

场景：在DEPHI中增加了一个ACTIVEX控件，如何了CLICK事件如何不管用

在DEPHI中增加了一个ACTIVEX控件，怎么了CLICK事件怎么不管用
新加了一个Activex控件，
var
sq:TCSQ2;
BEGIN
sq:=TCSQ2.Create(self);
    with   sq   do
    begin
        Align   :=alClient   ;
        Width   :=320;
        Height   :=240   ;
        Onclick:=sqclick;
        Parent   :=from1;
    end;
end;
procedure   TForm1.sqclick(Sender:   TObject);
begin

    Edit1.Text   :=TCSQ2(Sender).Name   ;
end;

------解决方案--------------------
先执行这段代码：

var
sq:TCSQ2;
BEGIN
sq:=TCSQ2.Create(self);
with sq do
begin
Align :=alClient ;
Width :=320;
Height :=240 ;
Onclick:=sqclick;
Parent :=from1;
end;
end;