[Человек_Борща]

Добреньгого всем времени суток!

Собственно вопрос:
Есть TPopupMenu в котром создано SubMenu.

В этом суб-меню нужно динамически/создавать удалять пункт меню.
как это делается?

Вот я написал так:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  MI:TMenuItem;
begin
  MI:=TMenuItem.Create(PopupMenu1);
  Mi.Caption:=Edit1.Text;
  MI.ImageIndex:=0;
  PopupMenu1.Items.Add(MI);
end;

Но данный код выкает пункты с основное меню а не в мое субменю.

Прошу помощи!