100分求助!!!急急急急急急急急急急急急急急急急急

                            
我在一个双击事件下动态创建一个Form,在这个动态创建的Form上,又动态创建了一个Button,现在想写这个Button的双击事件。不知道怎么写?请高手指教,感激不尽!   
  代码如下:  
  procedure   TForm1.Edit4DblClick(Sender:   TObject);  
  var  
        sms_send:   Tform2;  
        send:         Tbutton;  
  procedure     sendonClick(Sender:   TObject);  
  begin  
  showmessage('go');  
  end;  
  begin  
        sms_send:=tform2.Create(self);  
        sms_send.Left:=360;  
        sms_send.Top:=240;  
        sms_send.Width:=300;  
        sms_send.Height:=200;  
        sms_send.Visible:=true;  
        sms_send.Caption:='短信平台';  
        sms_send.Show;  
        send:=   Tbutton.Create(self);  
        send.Parent:=sms_send;  
        send.Left:=160;  
        send.Top:=10;  
        send.Width:=90;  
        send.Height:=20;  
        send.Visible:=true;  
        send.Caption:='发送短信';  
        send.OnClick:=   sms_send.sendonClick;  
 

查看回复