(-立刻送分-) 请教:怎么单击Button弹出PopupMenu中的指定菜单

(--在线等,立刻送分--) 请问:如何单击Button弹出PopupMenu中的指定菜单?
Button/PopupMenu建立好了.
例:PopupMenu中有
1> 11
  > 111
  > 1111
2> 21
  > 221
  > 2221
pmMainMenu.Popup(Mouse.CursorPos.X,Mouse.CursorPos.Y)  

单击Button弹出PopupMenu的某个菜单!如弹出
2> 21
  > 221
  > 2221

[解决办法]
只需如下2个函数:
GetSubMenu
TrackPopupMenu
具体请参考msdn
[解决办法]
var
h: HMENU;
begin
h := GetSubMenu(PopupMenu.Handle, 1);
TrackPopupMenu(h, 0, Mouse.CursorPos.X,Mouse.CursorPos.Y, 0, Handle, nil)
end;