Перемещение карты в скролбоксе мышкой

#include <vcl.h>
#pragma hdrstop
#include <math.h>
#include "Unit1.h"
#include <vector>
#include <jpeg.hpp>
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
bool
blMouseDown = false;// кнопка мыши не нажата
int
startXpos=0, startYpos=0,  // координаты, относительно
kordinataX=0, kordinataY=0,//  которых будет смещение
KL = 2, //2 коррекция - чтоб карта не дрожала!2.2
ST = KL+2; // скорость перемещения карты 2.4
 
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
 Form1->DoubleBuffered;
 Image1->Parent->DoubleBuffered = true; //
 Image1->Picture->LoadFromFile("default.jpg");
 Image1->Width  = Image1->Picture->Width; // размер моей карты X
 Image1->Height = Image1->Picture->Height;// размер моей карты Y
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image1MouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
    if( blMouseDown )      //
  {
///////////////////////////////////////////////////////////////////////////////
///////////////////////Горизонтальное перемещение//////////////////////////////
///////////////////////////////////////////////////////////////////////////////
     if (X < startXpos) // в лево мышкой - передвижение вправо по карте
        {
        //X = startXpos ; // задаю постоянную координату X чтоб двигать карту по эрану
        ScrollBox1->HorzScrollBar->Position = startXpos - kordinataX +KL ;// вычисления + коррекция
        kordinataX -= ST;//kordinataX перемещение карты с указанной скоростью
        }
     //............................................................................//
      if (X > startXpos ) //  в право мышкой - передвижение в лево по карте
            {
        //X = startXpos ; // задаю постоянную координату X чтоб двигать карту по эрану
        ScrollBox1->HorzScrollBar->Position = startXpos - kordinataX -KL ;// вычисления + коррекция
        kordinataX += ST;//kordinataX перемещение карты с указанной скоростью
            }
////////////////////////////////////////////////////////////////////////////////
//////////////////////Вертикальное перемещение//////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
      if (Y < startYpos) //  в верх мышкой - передвижение вниз по карте
        {
          //Y = startYpos; // задаю постоянную координату Y чтоб двигать карту по эрану
          ScrollBox1->VertScrollBar->Position = startYpos - kordinataY +KL ;// вычисления + коррекция
          kordinataY -= ST;// перемещение карты с указанной скоростью
        }
     //............................................................................//
       if (Y > startYpos) // вниз мыкой - передвижение вверх по карте
        {
         //Y = startYpos; // задаю постоянную координату Y чтоб двигать карту по эрану
         ScrollBox1->VertScrollBar->Position = startYpos - kordinataY -KL;// вычисления + коррекция
         kordinataY += ST;// перемещение карты с указанной скоростью
        }
//----------------------------------------------------------------------------//
  }
  StatusBar1->Panels->Items[0]->Text = ScrollBox1->HorzScrollBar->Position;
  StatusBar1->Panels->Items[1]->Text = ScrollBox1->VertScrollBar->Position;
  StatusBar1->Panels->Items[2]->Text = startXpos;
  StatusBar1->Panels->Items[3]->Text = kordinataX;
  StatusBar1->Panels->Items[4]->Text = startYpos;
  StatusBar1->Panels->Items[5]->Text = kordinataY;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ScrollBox1MouseActivate(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y, int HitTest,
      TMouseActivate &MouseActivate)
{
    kordinataX = X; // запись координат ScrollBox1 X
    kordinataY = Y; // запись координат ScrollBox1 Y
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Image1MouseDown(TObject *Sender, TMouseButton Button,
      TShiftState Shift, int X, int Y)
{
    startXpos = X;      // запоминаю координату X на карте Image1
    startYpos = Y;      // запоминаю координату Y на карте Image1
// нажатие кнопки мышки  удержание кнопки и запись координат
blMouseDown = true; // кнопка мышки нажата для перемещения карты с помощью мышки
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Image1MouseUp(TObject *Sender, TMouseButton Button,
      TShiftState Shift, int X, int Y)
{
  blMouseDown = false; // отключил реакцию мышки заканчивает перемещение карты
}
//---------------------------------------------------------------------------

     
  if (X > startXpos )
 {
 ScrollBox1->HorzScrollBar->Position -=abs(X - startXpos);
 } else
  if (X < startXpos )
 {
 ScrollBox1->HorzScrollBar->Position +=abs(X - startXpos);
 }
 if (Y < startYpos)
 {
 ScrollBox1->VertScrollBar->Position +=abs(Y - startYpos);
 } else
 if (Y > startYpos)
 {
 ScrollBox1->VertScrollBar->Position -=abs(Y - startYpos);
 }