Source position: controls.pp line 726
type TControlShowHintEvent = procedure(
Sender: TObject;
HintInfo: PHintInfo
) of object;