type
TacAppKeyEvent =
procedure
(Sender: TObject;
var
Key: Word; Shift: TShiftState; KeyName:
String
; RepeatedKeypress: Boolean)
of
object
;