Source position: fpg_main.pas line 89
type TKeyCharEvent = procedure(
Sender: TObject;
AKeyChar: Char
) of object;