{
This code displays a new menu named MyMenu when the user clicks the button.
} 
procedure TForm1.Button1Click(Sender: TObject);
begin
  Menu := NewMenu(Self, 'MyMenu',
            [NewItem('New item', TextToShortCut('Ctrl+N'), 
            False, True, Action1.OnExecute, 0, 'Item1')];
end;
