Source position: forms.pp line 1079
type THintInfoAtMouse = record
MousePos: TPoint;
Control: TControl;
ControlHasHint: Boolean;
end;