Source position: forms.pp line 1088
type TShowHintEvent = procedure(
var HintStr: String;
var CanShow: Boolean;
var HintInfo: THintInfo
) of object;