anchor.diff:  begin
     inherited;
   
  -  if WheelDelta > 0 then Value := Value + 1 + 9*Byte(GetKeyState(VK_SHIFT) < 0);
  -  if WheelDelta < 0 then Value := Value - 1 - 9*Byte(GetKeyState(VK_SHIFT) < 0);
  +  if WheelDelta > 0 then
  +    SetValueNCheckRange(Int64(Value) + 1 + 9*Byte(GetKeyState(VK_SHIFT) < 0));
  +  if WheelDelta < 0 then
  +    SetValueNCheckRange(Int64(Value) - 1 - 9*Byte(GetKeyState(VK_SHIFT) < 0));
   
     Focus;
   
  
positive.code:     fValue: Integer;
      procedure ButtonClick(Sender: TObject; Shift: TShiftState);
  
      procedure SetValue(aValue: Integer);
      procedure SetSharedHint(aHint: UnicodeString);
    protected
  
negative.code:   inherited KeyDown(Key, Shift);
  
    case Key of
      VK_UP:      SetValueNCheckRange(Int64(Value) + 1 + 9*Byte(ssShift in Shift));
      VK_DOWN:    SetValueNCheckRange(Int64(Value) - 1 - 9*Byte(ssShift in Shift));
    end;
  end;
  
  