/*
NewMenu, NewItem, TextToShortCut, Menu example
This code displays a new menu named MyMenu when the user clicks the button.
*/ 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  TMenuItem *Item1 = NewItem("New item", TextToShortCut("Ctrl+N"), false, true, Action1->OnExecute, 0, "Item1");
  Menu = NewMenu(TForm1, "MyMenu", &Item1, 0);
} 
