Source position: controls.pp line 301
type TKeyEvent = procedure(
Sender: TObject;
var Key: Word;
Shift: TShiftState
) of object;