Динамически создаваемое меню
TMenuItem *q = new TMenuItem(0);
q->Caption = "qqq";
q->Name = "N6";
TObject *w = new TObject();
q->OnClick(******);
PopupMenu2->Items->Add(q);
****** - как правильно указать сдесь функцию обработки нажатия на динамически созданный элемент меню
где MIClick - имя функции-обработчика...