请问高手如何创建动态菜单 ( 积分: 100 )

请问高手如何创建动态菜单,为什么我创建的,用Find不能判断呢,tem:=Caption;
if pos('(',Caption)>0 then
tem:=copy(Caption,1,length(Caption)-4);
//Caption:=copy(Caption,1,length(Caption)-4);
Result := mMenu.Find(tem);
if (Result = nil) and (not ExitisItem(tem,Lb_MenuItem))then
//if (Result = nil) then
begin
Result := TMenuItem.Create(mMenu);
Result.Caption := Caption;
mMenu.Add(Result);
self.Lb_MenuItem.Items.Add(Result.Caption);
Result.OnClick := nEvent;
end;
Result.Checked := True;

自己先顶一下

难道没知道还是不愿意回答

2222，4444
1111 3333
MainMenu1.Items.Find('2222'); //查找的只是所有的菜单头 并并不是所有的菜单项
MainMenu1.Items.Find(4444);
for I := 0 to mainmenu1.Items.Count - 1 do
begin
test := mainmenu1.items.find(1111);