Delphi+AE如何创建右键菜单

Question

当定义了 pToolBarMenu=CoToolBarMenu.Create as IToolbarMenu；后
    如何利用  pToolBarMenu.AddItem（）；在mapcontrol上创建新元素，已经相关右击事件？？
哪位大侠能够提供这样右击菜单的实例。学习学习

Answer 1

如果对象有popupmenu属性就用，如果没有，就在mousedown或mouseup事件里做文章。
先判断鼠标右键，然后判断鼠标是否在对象上，再然后popup(当前鼠标坐标x,y)

Answer 2

谢谢回复，我现在的问题是在Delphi7上，还不知道该如何使用pToolBarMenu.AddItem（），也就是这里的AddItem（）里面的参数该如何添加。该如何构造里面的五个参数，尤其是第一个参数和最后一个参数？mapcontrol应该是可以用popupmenu来调用这个弹出菜单的。