动态创建菜单的高手进来瞧瞧吧！

procedure TForm1.Button1Click(Sender: TObject);
var n,n1:tmenuitem;
begin
  n:=tmenuitem.Create(mainmenu1);
  with n do
     begin
       caption:='new';
       name:='newmenuitem';
       visible:=true;
     end;
  mainmenu1.Items.Add(n);
  n1:=tmenuitem.Create(n);
  with n1 do
     begin
       caption:='newitem';
       name:='new1';
       visible:=true;
     end;
  n.Insert(0,n1);
end;