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