Source position: menus.pp line 421
procedure ShortCutToKey(
const ShortCut: TShortCut;
var Key: Word;
var Shift: TShiftState
);