Source position: gfxbase.pas line 453
type TGfxKeyEvent = procedure(
Sender: TObject;
AKey: Word;
AShift: TShiftState
) of object;