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