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