在Delphi中动态创建子菜单

I have a popup menu and I want one of the items to open a sub-menu with a dynamically created list (it's a list of user defined flags). Here's how I'm creating the menu items (I have a popup menu and I want one of the items