Назначить событие OnClick() на динамически создаваемый компонент

есть попуп меню PopupMenu1
на нем MenuItem N1

событие OnPopup

void __fastcall TMain::PopupMenu1Popup(TObject *Sender)
{
N1->Clear();
TMenuItem *TempM;
TempM = new TMenuItem(N1);
TempM->Caption = "подменю 1";
N1->Add(TempM);
}

как создать OnClick() или отследить его
для "подменю 1"