Source position: forms.pp line 378
type TShortCutEvent = procedure(
var Msg: TLMKey;
var Handled: Boolean
) of object;