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