Не могу создать кнопку, чтобы она закрывалась двойным нажатием левой кнопкой мыши. Как это сделать?

namespace DblClick_Button
{
    class TButton : public Stdctrls::TButton
    {
    private:
        TNotifyEvent FOnDblClick;
        MESSAGE void __fastcall WmButtonDoubleClick(TMessage &Message)
        {
            Stdctrls::TButton::Dispatch(&Message);
            if(FOnDblClick)
            {
                FOnDblClick(this);
            }
        }
 
        BEGIN_MESSAGE_MAP
            MESSAGE_HANDLER(WM_LBUTTONDBLCLK, TMessage, WmButtonDoubleClick)
        END_MESSAGE_MAP(Stdctrls::TButton);
 
    public:
        __property TNotifyEvent OnDblClick = {read = FOnDblClick, write = FOnDblClick};
    };
}
#define TButton DblClick_Button::TButton
 
// тут - класс формы, все без изменений...

void __fastcall TForm1::MyCloseForm(TObject *Sender) // заголовок не забудь добавить в класс формы, в секцию public
{
    this->Close();
}
 
void __fastcall TForm1::FormCreate(TObject *Sender)
{
    Button1->OnDblClick = &MyCloseForm;
}

__fastcall virtual TButton(System::Classes::TComponent* AOwner) : Stdctrls::TButton(AOwner){};

Button1->OnDblClick = &MyCloseForm;

namespace DblClick_Button
{
  class TButton : public Stdctrls::TButton
  {
    private:
      TNotifyEvent FOnDblClick;
 
      MESSAGE void __fastcall WmButtonClick(TMessage &Message)
      {
        TMsg msg;
        long tm = ::GetTickCount() + ::GetDoubleClickTime(); // время для реакции на двойной клик
 
        while(::GetTickCount() < tm) // ждем возможного получения WM_LBUTTONDBLCLK компонентом
          {
            if (::PeekMessage(&msg, Handle, WM_LBUTTONDBLCLK,
                             WM_LBUTTONDBLCLK, PM_NOREMOVE))
              {
                if (FOnDblClick)
                  FOnDblClick(this);
 
                return; // Дождались - двойной клик, здесь делать нечего
              }
          }
 
        Stdctrls::TButton::Dispatch(&Message);
 
        if (OnClick)
           OnClick(this);
      }
 
      BEGIN_MESSAGE_MAP
        MESSAGE_HANDLER(WM_LBUTTONDOWN, TMessage, WmButtonClick)
      END_MESSAGE_MAP(Stdctrls::TButton);
 
    public:
      __fastcall virtual TButton(System::Classes::TComponent* AOwner) : Stdctrls::TButton(AOwner)
      {
      }
 
      __property TNotifyEvent OnDblClick = {read = FOnDblClick, write = FOnDblClick};
  };
}
#define TButton DblClick_Button::TButton

    virtual void __fastcall CreateParams(Vcl::Controls::TCreateParams& Params)
    {
        TForm::CreateParams(Params);
        //Params.WindowClass.style
    };

void __fastcall TForm1::Button1Click(TObject *Sender) 
{
   static TDateTime tLast=0;
   if((double)tLast && (double)fabs(Time()-tLast)>43935.9999971)
     Close();    // Caption = "double";
   else {
     Caption = "Form1";   // something else
   }
   tLast=Now();
}

    virtual void __fastcall CreateParams(Vcl::Controls::TCreateParams& Params)
    {
        TForm::CreateParams(Params);
        Params.WindowClass.style = CS_DBLCLKS;
    };