妖哥

var   a,b:Tmenuitem;   
  begin   
      a:=Tmenuitem.Create(mainmenu1);   
      b:=Tmenuitem.Create(mainmenu1);   
      a.Caption:='一级菜单';   
      b.Caption:='二级菜单';   
      a.Name:='MI_1';   
      b.Name:='MI_2';   
      mainmenu1.Items.Add(a);//加入一个一级菜单项   
      mainmenu1.Items.Items[0].Add(b);//在第一个一级菜单下添加一个二级菜单   
  end;