[Xxxxxx.h]

//イベントをTNotifyEvent型を使って宣言します

class TForm2 : public TForm
{
__published:
private:

TNotifyEvent FOnEvented;

public:

__fastcall TForm2(TComponent* Owner);
__property TNotifyEvent OnEvented = { read = FOnEvented,write = FOnEvented};

};

[Xxxxxx.cpp]

//イベントを発生させたい部分で下記のように書いてイベントを発生させます

if (OnEvented)

OnEvented(this);

[Xxxxxx.h]

//イベントを新しい型(TMyEvent)として宣言しています

typedef void __fastcall (__closure *TMyEvent)(System::TObject *Sender , bool& Cancel);

class TForm2 : public TForm
{
__published:
private:

TMyEvent FOnEvented;

public:

__fastcall TForm2(TComponent* Owner);
__property TMyEvent OnEvented = { read = FOnEvented,write = FOnEvented};

};

[Xxxxxx.cpp]

//イベントを発生させたい部分で下記のように書いてイベントを発生させます

if (OnEvented)

OnEvented(this,bolCancel);