Source position: controls.pp line 348
type TKeyPressEvent = procedure(
Sender: TObject;
var Key: Char
) of object;