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