procedure TForm1.Button1Click(Sender: TObject);
var
  MainMenu: TMainMenu;
  MenuItem: TMenuItem;
begin
  //主菜单创建
  MainMenu:=TMainMenu.Create(self);
  Self.Menu:=MainMenu;
  //文件菜单创建
  MenuItem:= TMenuItem.Create(MainMenu);
  MenuItem.Caption:='文件';
  MainMenu.Items.Add(MenuItem);
  //新建子菜单创建
  MenuItem:=TMenuItem.Create(MainMenu);
  MenuItem.Caption:='新建';
  MainMenu.Items[0].Add(MenuItem);
  //子菜单中的子菜单创建
  MenuItem:= TMenuItem.Create(MainMenu);
  MenuItem.Caption:='打开';
  MainMenu.Items[0].Items[0].Add(MenuItem);
  MenuItem:= TMenuItem.Create(MainMenu);
  MenuItem.Caption:='保存';
  MainMenu.Items[0].Items[0].Add(MenuItem);
end;
end.