Problema s Menu

Ideja takaja:
Ja sozaduju menu: Insert, Change, Delete; Pomescaju tuda nuznyje item'y. A v funkcyji OnShowPopup(TObject *Sender), mne nuzno v pervyje dva elementa (insert, change) dobavit n-noje cislo elementov sub menu: (1,2,3,4)
Tocnoje cislo elementov budet meniatsia real time, tak cto ja ne mogu sozdat stacionarno submenu. Mne nuzno evo zapolnit pered pokazanijem popup menu

Eto primerno vygliadit tak:

Sozdaju menu
0. Insert;
1. Change;
2. Delete;

Pered pokazom popup menu, sozdaju i pomescaju submenu items:

0. Insert -> 1
-> 2
1. Change -> 1
-> 2
2.Delete

nu primerno tak vygliadit

Vopros vot v ciom. Kak v funkcyji OnShowPopup mne polucit pointery na elementy insert i change?

Ja proboval tak:
TMenuItem *Insert = &pMenu->Items[0];
TMenuItem *Change = &pMenu->Items[1];

no ja vsegda polucaju kakuju to drebeden'. Podskazyte cto ne tak? i kak dostat menu pukt po evo nomeru v popup menu