请问怎么给动态菜单创建的菜单action赋值的有关问题

请教如何给动态菜单创建的菜单action赋值的问题？
我从数据库中读出菜单设置，然后动态创建菜单，其他的菜单属性都赋值正常，只有action这个属性不知道如何赋值。
比如我想这样实现：
            TMenItem   *tmp=TMenuItem(this);
            tmp-> Caption= "aaaaa ";
            tmp-> Name= "test ";
            tmp-> Action= "do_quit ";   //这里看定义知道不行，但是不知道怎么弄
            MainMenu1-> Items-> Add(tmp);
希望高手解答，谢谢，谢谢，谢谢            



------解决方案--------------------
action属性需要指定一个action指针，比如某个ActionList的action
------解决方案--------------------
tmp-> Action本身是一个对象.

我想楼主的本意是动态的给菜单项的点击事件赋值.

楼主可以直接对tmp-> OnClick事件赋值 tmp-> OnClick = Button1-> OnClick;