anchor.diff:    //Init event handlers
     OnMouseWheelUp:= @MouseWheelUp;
     OnMouseWheelDown:= @MouseWheelDown;
  +
  +  with TScrollBar.Create(Self) do
  +  try
  +    Kind:= sbVertical;
  +    FInitScrollbarSize:= Width;
  +  finally
  +    Free
  +  end;
   end;
   
   procedure TATImageBox.DoScroll;
  
positive.code:   //Fit and recalculate ImageScale
    FImage.Left:= 0;
    FImage.Top:= 0;
  
    AWidth:= ClientWidth;
    AHeight:= ClientHeight;
  
    if FImageFit then
    begin
  
negative.code:     FImageMouseDown: Boolean;
      FKeyModifierZoom: TShiftStateEnum;
      FKeyModifierHorzScroll: TShiftStateEnum;
      FInitScrollbarSize: integer;
  
      FOnScroll: TNotifyEvent;
      FOnScrollAlt: TATScrollAltEvent;
  