Как поймать двойной щелчок по компоненту Splitter?

namespace MyNamespace
{
    class TSplitter : public Extctrls::TSplitter
    {
    public:
        inline __fastcall virtual TSplitter(Classes::TComponent* AOwner) :
            Extctrls::TSplitter(AOwner) {}
    __published:
        __property OnDblClick;
    };
};
#define TSplitter MyNamespace::TSplitter
 
class TForm1 : public TForm
{
__published:    // IDE-managed Components
    TPanel *Panel1;
    TSplitter *Splitter1;
    TPanel *Panel2;
    void __fastcall FormCreate(TObject *Sender);
private:    // User declarations
public:     // User declarations
    __fastcall TForm1(TComponent* Owner);
 
    void __fastcall SplitterDblClick(TObject *Sender);
};

void __fastcall TForm1::SplitterDblClick(TObject *Sender)
{
    ShowMessage("Test");
}
 
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
    //
    Splitter1->OnDblClick = SplitterDblClick; // Вот так назначаешь обработчик
}

    Splitter1->OnDblClick = SplitterDblClick;
    Splitter1->ResizeStyle = rsUpdate; // <--- !!!