Delphi如何通过IContextMenu接口实现循环操作?