Source position: forms.pp line 1068
type TOnUserInputEvent = procedure(
Sender: TObject;
Msg: Cardinal
) of object;