anchor.diff:        Screen.Cursor:= FCursorDrag;
       end;
     end;
  +
  +  Self.MouseDown(Button, Shift, X, Y);
   end;
   
   procedure TATImageBox.ImageMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: integer);
  
positive.code:     FDragging:= False;
      Screen.Cursor:= crDefault;
    end;
  end;
  
  procedure TATImageBox.ImageMouseMove(Sender: TObject; Shift: TShiftState; X, Y: integer);
  
negative.code:     VertScrollBar.Position:= VertScrollBar.Position + (FDraggingPoint.Y - Y);
      DoScroll;
    end;
  
    Self.MouseMove(Shift, X, Y);
  end;
  
  procedure TATImageBox.IncreaseImageZoom(AIncrement: boolean);
  