[M.A.D.M.A.N.]

TPopUpMenu

Код:

Var SubMenu:TMenuItem;
Begin
  SubMenu:=TMenuItem.Create(ParentMenuItemNameHere);
  SubMenu.OnClick:=smOnClick;
  SubMenu.Caption:='Sub Menu';
  SubMenu.Tag:=1;
  ParentItemMenuNameHere.Add(SuMenu);
End;

А если надо почистить то

Код:

...
ParentItemMenuName.Clear;
...