여러가지 방법이 있겠지만...
저는 이렇게 했네요.
var
submenu : TMenuItem;
begin
submenu := NewItem('팝업메뉴1',0,False,True,Nil,0,'');
PopupMenu1.Add(submenu);
// 이곳에서 서브메뉴에 들어갈 메뉴들을 만들어 주심 되요.
submenu.Add(NewItem('서브메뉴1',0,False,True,MenuItemClick1,0,''));
submenu.Add(NewItem('서브메뉴2',0,False,True,MenuItemClick2,0,''));
저는 이렇게 했네요.
var
submenu : TMenuItem;
begin
submenu := NewItem('팝업메뉴1',0,False,True,Nil,0,'');
PopupMenu1.Add(submenu);
// 이곳에서 서브메뉴에 들어갈 메뉴들을 만들어 주심 되요.
submenu.Add(NewItem('서브메뉴1',0,False,True,MenuItemClick1,0,''));
submenu.Add(NewItem('서브메뉴2',0,False,True,MenuItemClick2,0,''));
NewItem에 관한 것은 도움말을 보시면 되고요.