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