Source position: syncompletion.pas line 69
type TValidateEvent = procedure(
Sender: TObject;
KeyChar: TUTF8Char;
Shift: TShiftState
) of object;