anchor.diff:    begin
       if x <= Height then
       begin
  +      // Left button has been pressed
         PositionChange(-FScrollStep);
         FStartBtnPressed := True;
         FActiveButtonRect.SetRect(0, 0, Height, Height);
       end
       else if x >= Width - Height then
       begin
  +      // Right button has been pressed
         PositionChange(FScrollStep);
         FEndBtnPressed := True;
         FActiveButtonRect.SetRect(Width-Height, 0, Width, Height);
       end
  -    else if (x >= Height + FSliderPos) and (x <= Height + FSliderPos + FSliderLength) then
  +    else if (x >= (Height + FSliderPos)) and (x <= Height + FSliderPos + FSliderLength) then
       begin
         FSliderDragging := True;
         FSliderDragPos  := x;
  +    end
  +    else if (x > Height) and (x < (Height + FSliderPos)) then
  +    begin
  +      // Clicked between Left button and Slider
  +      PrevAreaPressed := True;
  +      PositionChange(-(FScrollStep * 5));
  +    end
  +    else if (x < (Width - Height)) and (x > (Height + FSliderPos + FSliderLength)) then
  +    begin
  +      // Clicked between the Right button and Slider
  +      NextAreaPressed := True;
  +      PositionChange(FScrollStep * 5);
       end;
     end;
     
  
positive.code:       Canvas.FillRectangle(0, FSliderPos + FSliderLength, Width, Height - Width - FSliderPos);
        Canvas.SetColor(clScrollBar);
      end;
    end;
  
    if Orientation = orVertical then
    begin
      Canvas.DrawButtonFace(0, Width + FSliderPos, Width, FSliderLength, [btnIsEmbedded]);
  
negative.code:       FEndBtnPressed := True;
        FActiveButtonRect.SetRect(0,Height-Width, Width, Height);
      end
      else if (y >= (Width + FSliderPos)) and (y <= Width + FSliderPos + FSliderLength) then
      begin
        FSliderDragging := True;
        FSliderDragPos  := y;
      end
      else if (y > Width) and (y < (Width + FSliderPos)) then
      begin
        // Clicked between Up button and Slider
        PrevAreaPressed := True;
  