anchor.diff:    else
       FMax := AValue;
     if FPosition > FMax then
  -    SetPosition(FMax);
  +    StepEnd;
   end;
   
   procedure TfpgScrollBar.SetMin(const AValue: integer);
  
positive.code:     constructor Create(AOwner: TComponent); override;
      destructor  Destroy; override;
      procedure   RepaintSlider;
      property    Position: integer read FPosition write SetPosition default 10;
      property    ScrollStep: integer read FScrollStep write FScrollStep default 1;
  //    property    LargeChange: Integer read FLargeChange write FLargeChange default 0;
  
negative.code:    end;
  begin
  
    case FScrollbarDownPart of
      sbpDownForward,
      sbpUpBack           : FScrollTimer.Interval := 25;
      sbpPageDownForward,
      sbpPageUpBack       : FScrollTimer.Interval := 50;
    end;
  
    case FScrollbarDownPart of
      sbpUpBack:
        begin
          if WithinActiveButton then
            Step(-1);
          if Position = FMin then
            FScrollTimer.Enabled := False;
        end;
      sbpDownForward:
        begin
          if WithinActiveButton then
            Step(1);
          if Position = FMax then
            FScrollTimer.Enabled := False;
        end;
  