Динамическое меню и его обработка

class TForm1 : public TForm
{
__published:    // IDE-managed Components
        TMainMenu *MainMenu1;
        TMenuItem *N2;
private:    // User declarations
public:     // User declarations
        __fastcall TForm1(TComponent* Owner);
        void AddSubYears(TMenuItem *ParentMenuItem);
        void __fastcall OnClickSubYears(TObject *Sender);
};

void AddSubYears(TMenuItem *ParentMenuItem);
 
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
        AddSubYears(N2); // N2 - родительский TMenuItem, к которому нужно прицепить дочерние
}
//---------------------------------------------------------------------------
 
void TForm1::AddSubYears(TMenuItem *ParentMenuItem)
{
        const int iTotal = 4;
        AnsiString arrYear[iTotal] = { "2012", "2013", "2014", "2015" };
        for ( int i = 0; i < iTotal; i++ )
        {
                TMenuItem *menuitem = new TMenuItem((TComponent*)this);
                menuitem->Caption = arrYear[i];
                menuitem->OnClick = OnClickSubYears;
                ParentMenuItem->Add(menuitem);
        }
}
 
void __fastcall TForm1::OnClickSubYears(TObject *Sender)
{
        TMenuItem *menuitem = (TMenuItem*)Sender;
        ShowMessage(menuitem->Caption);
}