class TClassA: public TObject
{
private:
    DWORD EventsMask; /* маска событий */

/* события*/
public:
    TNotifyEvent	__fastcall FOnEvent1;
    TNotifyEvent 	__fastcall FOnEvent2;

public:
    void __fastcall DispatchMessage(); /* */
};

class PACKAGE TClassB: public Classes::TComponent
{
    TClassA   *PtrA;
private:
    TNotifyEvent	__fastcall GetEvent1(){ return PtrA->FOnEvent1;}
    TNotifyEvent 	__fastcall GetEvent2(){ return PtrA->FOnEvent2;}

    void __fastcall SetEvent1(TNotifyEvent e){ PtrA->FOnEvent1 = e;}
    void __fastcall SetEvent2(TNotifyEvent e){ PtrA->FOnEvent2 = e;}

/* события */
__published:
    __property TNotifyEvent OnEvent1 = { read = GetEvent1, write = SetEvent1 };
    __property TNotifyEvent OnEvent2 = { read = GetEvent2, write = SetEvent2 };
};

void __fastcall TClassA::DispatchMessage()
{
    if(EV_1 & EventsMask)
    	FOnEvent1(this);
    if(EV_2 & EventsMask)
    	FOnEvent2(this);
}