[YVitaliy]

Код:

var
  Form1: TForm1;
  ImgMoved:Boolean;
  oX, oY:Integer;
implementation

............................................................

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  imgMoved:=true;
  oX:=X;
  oY:=Y;
end;

procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  imgMoved:=false;
end;

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
 var dx, dy:Integer;
begin
  if imgMoved then begin
    dx:=oX-X;
    dy:=oY-Y;
    ScrollBox1.HorzScrollBar.Position:=ScrollBox1.HorzScrollBar.Position+dx;
    ScrollBox1.VertScrollBar.Position:=ScrollBox1.VertScrollBar.Position+dy;
  end;
end;