anchor.diff:  
     if Orientation = orVertical then
     begin
  -    Canvas.FillRectangle(0, Width, Width, Height-Width-Width);
  +    Canvas.FillRectangle(0, Width, Width, Height - (2 * Width));
       area := Height - (Width shl 1);
     end
     else
     begin
  -    Canvas.FillRectangle(Height, 0, Width-Height-Height, Height);
  +    Canvas.FillRectangle(Height, 0, Width - (2 * Height), Height);
       area := Width - (Height shl 1);
     end;
   
  
positive.code:     else if FScrollbarDownPart in [{sbpDownForward,} sbpPageDownForward] then
      begin
        Canvas.SetColor(clShadow1);
        Canvas.FillRectangle(FSliderPos + FSliderLength, 0, Width - Height - (FSliderPos + FSliderLength), Height);
        Canvas.SetColor(clScrollBar);
      end;
    end;
  
negative.code:     else if FScrollbarDownPart in [{sbpDownForward,} sbpPageDownForward] then
      begin
        Canvas.SetColor(clShadow1);
        Canvas.FillRectangle(0, Width + FSliderPos + FSliderLength, Width, Height - (2 * Width) - (FSliderPos + FSliderLength));
        Canvas.SetColor(clScrollBar);
      end;
    end
  