Source position: classesh.inc line 130
type THintEvent = procedure(
var HintStr: string;
var CanShow: Boolean
) of object;