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