Динамическое создание пункта всплывающего меню

Как динамически создать пункт всплывающего меню?

Для динамического создания пункта меню необходимо создать процедуру в объекте (частный метод формы), примерно так:

procedure MyClick(Sender: TObject);
Затем, при создании нового пункта меню, назначить ему собственное событие OnClick следующим образом:
NewItem := TMenuItem.Create(Self);
NewItem.Caption := 'Пункт меню';
NewItem.OnClick := MyClick;