请问一上关于C++builder中的Button组件的双击事件是怎样的

请教一下关于C++builder中的Button组件的双击事件是怎样的！
功能很简单，就是双击Button组件后，能够触发事件。如显示个什么东西都行！我的分不多，全部都给了！
------解决方案--------------------
Button组件默认没有OnDblClick事件, 所以需要接管其WndProc过程, 然后判断鼠标消息来实现对双击的响应.

.h文件中:

private:	// User declarations

    void __fastcall NewProc(TMessage &Message);

.cpp文件中:

__fastcall TForm1::TForm1(TComponent* Owner)

    : TForm(Owner)

{

    Button1->WindowProc = NewProc;

}

//---------------------------------------

void __fastcall TForm1::NewProc(TMessage &Message)

{

    if (Message.Msg == WM_LBUTTONDBLCLK)

        Memo1->Lines->Add("左键双击");

    else if (Message.Msg == WM_LBUTTONDOWN)

        Memo1->Lines->Add("左键按下");

    else if (Message.Msg == WM_LBUTTONUP)

        Memo1->Lines->Add("左键弹起");


    Button1->Dispatch(&Message);

}