Динамическое создание PopupMenu?

[Angel86rus]

Доброго времени суток!
Динамически создаю popupMenu, созданное меню работает но возникла проблема с довлением , не могу потом добавить меню и подменю. подскажие что не так.

Procedure...
ppm:=TPopupMenu.Create(Self);
ppm.Name:='name_5';
with ppm.Items do
begin
Add(NewItem(edt.Text,0,False,True,nil,0,'MenuItem'+IntToStr(idf)));
Add(NewLine); 
end;

 procedure....
//добавление 
PmItems:=TMenuItem.Create(TPopupMenu(Name));
with   PmItems do
begin
 Add(NewItem(edt.Text,2,False,True,nil,0,'MenuItem'+IntToStr(itmNm)));
end;

[evg_m]

PmItems:=TMenuItem.Create(TPopupMen u(Name)); // 'элемент меню создан
//но не включен в какой-либо список элментов (меню)

popmenu.items.add(pmItems);

[Angel86rus]

Пробую чета не выходит, ощибка.
примерчик можно ....

[Stilet]

Пробую

Хвастайся как пробуешь )

[evg_m]

примерчик можно ....

Delphi F1 TmenuItem methods add Delphi Examlpe

[Angel86rus]

как бы разобрался, работает

with (GetPopupMenu as TPopupMenu) do
      begin
        Menu:=TMenuItem.Create(self);
        Menu.Caption := btn1.Caption;
        Menu.OnClick := BtnClick;
        Items.Insert(0, Menu);
     end;