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