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