你的意思是想要动态地添加菜单项?用NewItem()函数吧。function NewItem(const ACaption: string; AShortCut: TShortCut; AChecked, AEnabled: Boolean; AOnClick: TNotifyEvent; hCtx: THelpContext; const AName: string): TMenuItem;在AOnClick中指定一个事件过程,然后在事件过程中实现点击菜单时显示相应的收藏记录即可。