bool pushed=false;
int x,y;
void __fastcall TForm1::Image1MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
  x=X;
  y=Y;
  pushed=true;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Image1MouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
  if(pushed){
    ScrollBox1->VertScrollBar->Position += (y-Y);
    ScrollBox1->HorzScrollBar->Position += (x-X);
  }
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Image1MouseUp(TObject *Sender, TMouseButton Button,
      TShiftState Shift, int X, int Y)
{
  pushed=false;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  if(OpenPictureDialog1->Execute()){
    Image1->Picture->LoadFromFile(OpenPictureDialog1->FileName);
    Image1->Width=Image1->Picture->Width;
    Image1->Height=Image1->Picture->Height;
  }
}
//---------------------------------------------------------------------------
.끝.

신현섭 님이 쓰신 글 :
: 알See와 ACDSee 같은 프로그램에서 확대 이미지를 볼경우
: 마우스가 Down 된 상태에서 움직이면 스크롤이 되는걸 구현하려고 하는데..
: 쉽지 않네요..