anchor.diff:       or ((AText = FDecimalSeparator) and (UTF8Pos(AText, Text) <= 0)) then
       consumed := False
     else
  -    consumed := True;
  +    Exit; //==>
  +
     inherited HandleKeyChar(AText, shiftstate, consumed);
  +
     if FMaxLimit then
       if GetValue > FMaxValue then
         SetValue(FMaxValue);
  
positive.code:     property    OnChange;
      property    OnEnter;
      property    OnExit;
      property    OnKeyPress;
      property    OnMouseEnter;
      property    OnMouseExit;
  
negative.code:     property    OnDragStartDetected;
      property    OnEnter;
      property    OnExit;
      property    OnKeyChar;
      property    OnKeyPress;
      property    OnMouseEnter;
      property    OnMouseExit;
  