anchor.diff:    begin
       Value := FValue + FIncrement;
       DoOnChange;
  +    EnableButtons;
  +  end
  +  else if not IsMaxLimitReached then
  +  begin
  +    Value := FMaxValue;
  +    DoOnChange;
  +    EnableButtons;
     end;
   end;
   
  
positive.code:         Inc(FSteps);
        if FSteps > FSpeedUpSteps then
          FTempIncrement := LargeIncrement;
        DoOnchange;
      end;
    end
    else if FDown then
    begin
  
negative.code:   begin
      Value := FValue - FIncrement;
      DoOnChange;
      EnableButtons;
    end
    else if not IsMinLimitReached then
    begin
      Value := FMinValue;
      DoOnChange;
      EnableButtons;
    end;
  end;
  
  