Source position: comctrls.pp line 1937
protected procedure TCustomUpDown.AssociateMouseWheel(
Sender: TObject;
Shift: TShiftState;
WheelDelta: Integer;
MousePos: TPoint;
var Handled: Boolean
);