有关动态创建二级子菜单的问题。搞了几天了，也没有搞出来，请大家一起帮我搞一搞。

Question

搞出来了，
var
  NewMenuItem: TMenuItem;
begin
  NewMenuItem := TMenuItem.Create(self);
  NewMenuItem.Caption := '111111';
  MainMenu1.Items.Add(NewMenuItem);  NewMenuItem := TMenuItem.Create(self);
  NewMenuItem.Caption := '222222';
  MainMenu1.Items[0].Add(NewMenuItem);  NewMenuItem := TMenuItem.Create(self);
  NewMenuItem.Caption := '33333';
  MainMenu1.Items[0].Add(NewMenuItem);  NewMenuItem := TMenuItem.Create(self);
  NewMenuItem.Caption := '222222';
  MainMenu1.Items[0].Items[0].Add(NewMenuItem);