OleContainer的Word文档中设置自己定制的popupmenu(50分)

我在Delphi的窗体中插入一名称为Word_Ole的OleContainer控件，通过以下语句在此ole控件中打开一Word文档：Word_Ole.CreateObjectFromFile("D:/ole_test.doc",False)；
将Word_Ole.AutoVerbMenu设为 False后，可在Word_Ole中的Word文件未被激活的情况下，在Word_Ole上单击鼠标右键可弹出自己定制的popupmenu，但激活Word文档后，单击鼠标右键后弹出的却是Word的快捷菜单，请问如何在激活的Word文档中单击鼠标右键后弹出自己做的快捷菜单？或者说如何将在激活的OleContainer的Word文档中选中的文字通过单击鼠标右键后弹出的快捷菜单自动加入到数据库中的某个表中的字段？

难道这里这么多高手，都没有人能解决这个问题吗？ 请研究过此问题的人给我一点建议吧，拜托了！