OnDblClick на TShape

namespace MyNamespace // перед классом формы !!!
{
    class TShape : public Extctrls::TShape // Промежуточный класс TShape
    {
    public:
        __property OnDblClick; // Теперь доступ - общий
    };
}
#define TShape MyNamespace::TShape
 
// это класс своей формы
class TForm1 : public TForm
__published:    // IDE-managed Components
    // тут ничего не меняем
 
private: // User declarations
public: // User declarations
    __fastcall TForm1(TComponent* Owner);
    void __fastcall MyDblClick(TObject *Sender); // Вот этот обработчик назначим в Shape1.OnDblClick
};

void __fastcall TForm1::FormCreate(TObject *Sender)
{
    Shape1->OnDblClick = MyDblClick;
}
 
// Сам обработчик:
void __fastcall TForm1::MyDblClick(TObject *Sender)
{
    ShowMessage("DblClick");
    TShape *shape = dynamic_cast<TShape*>(Sender);
    // Тут можешь производить любые действия с shape...
}

//---------------------------------------------------------------------------
 
#ifndef Unit_homeH
#define Unit_homeH
//---------------------------------------------------------------------------
#include <System.Classes.hpp>
#include <Vcl.Controls.hpp>
#include <Vcl.StdCtrls.hpp>
#include <Vcl.Forms.hpp>
#include <Vcl.ExtCtrls.hpp>
#include <Vcl.Menus.hpp>
#include <Vcl.ComCtrls.hpp>
#include <Vcl.Graphics.hpp>
#include "Unit_upak.h"
//---------------------------------------------------------------------------
class Tfrm_home : public TForm
{
__published:    // IDE-managed Components
    TPanel *Panel1;
    TPopupMenu *ppm_home;
    TMenuItem *N1;
    TMenuItem *N2;
    TMenuItem *N3;
    TMenuItem *N4;
    TMenuItem *N5;
    TStatusBar *stb_home;
    TImage *Image1;
    TShape *Shape1;
    void __fastcall FormCreate(TObject *Sender);
    void __fastcall N5Click(TObject *Sender);
    void __fastcall N1Click(TObject *Sender);
    void __fastcall FormDblClick(TObject *Sender);
    void __fastcall FormKeyPress(TObject *Sender, System::WideChar &Key);
    void __fastcall FormCloseQuery(TObject *Sender, bool &CanClose);
    void __fastcall ppm_homePopup(TObject *Sender);
 
private:    // User declarations
public:     // User declarations
    __fastcall Tfrm_home(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE Tfrm_home *frm_home;
//---------------------------------------------------------------------------
#endif

//---------------------------------------------------------------------------
void __fastcall TForm1::Shape1MouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift,
                    int X, int Y)
{
    if( Shift.Contains(ssDouble) && Button== mbLeft)
        {
            ShowMessage("DblClick");
        }
}
//---------------------------------------------------------------------------