delphi动态创建菜单实例,这个是我自己测试通过的代码用于delphi7中。