
(*
 Delphi Object and Component Reference
#{bmc bm9.BMP} ShortCut example
This line creates a shortcut, Ctrl+O, at run time and assigns it to the Open command on a File menu.
OpenCommand->ShortCut = ShortCut(Word('O'), TShiftState() << ssCtrl); 
