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;