Разбить картинку на 24 части

void __fastcall TForm1::Button2Click(TObject *Sender)
{
TImage * Pict = new TImage(Form1);
Pict->AutoSize = true;
 
if(OpenPictureDialog1->Execute())
{
Pict->Picture->LoadFromFile(OpenPictureDialog1->FileName);
 
 
Image1->Canvas->CopyRect(Image1->ClientRect, Pict->Canvas,
                  Rect(0,0,Pict->Width / 3,Pict->Height / 3));
Image3->Canvas->CopyRect(Image1->ClientRect, Pict->Canvas,
                  Rect(Pict->Width / 3,0,Pict->Width *2/ 3,Pict->Height / 3));
Image2->Canvas->CopyRect(Image1->ClientRect, Pict->Canvas,
                  Rect(Pict->Width *2/ 3,0,Pict->Width,Pict->Height / 3));
Image10->Canvas->CopyRect(Image1->ClientRect, Pict->Canvas,
                  Rect(Pict->Width *2/ 3,0,Pict->Width,Pict->Height / 3));
 
 
Image5->Canvas->CopyRect(Image1->ClientRect, Pict->Canvas,
                  Rect(0,Pict->Height / 3,Pict->Width / 3,Pict->Height *2/ 3));
Image4->Canvas->CopyRect(Image1->ClientRect, Pict->Canvas,
                  Rect(Pict->Width / 3,Pict->Height / 3,Pict->Width *2/ 3,Pict->Height *2/ 3));
Image6->Canvas->CopyRect(Image1->ClientRect, Pict->Canvas,
                  Rect(Pict->Width *2/ 3,Pict->Height / 3,Pict->Width,Pict->Height *2/ 3));
 
Image9->Canvas->CopyRect(Image1->ClientRect, Pict->Canvas,
                  Rect(0,Pict->Height *2/ 3,Pict->Width / 3,Pict->Height));
Image7->Canvas->CopyRect(Image1->ClientRect, Pict->Canvas,
                  Rect(Pict->Width / 3,Pict->Height *2/ 3,Pict->Width *2/ 3,Pict->Height));
Image8->Canvas->CopyRect(Image1->ClientRect, Pict->Canvas,
                  Rect(Pict->Width *2/ 3,Pict->Height *2/ 3,Pict->Width,Pict->Height));
  }
}

//---------------------------------------------------------------------------
 
#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ExtCtrls.hpp>
#include <Graphics.hpp>
#include <Dialogs.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:    // IDE-managed Components
    TButton *Button2;
    TOpenDialog *OpenDialog1;
    void __fastcall Button2Click(TObject *Sender);
private:    // User declarations
public:     // User declarations
    __fastcall TForm1(TComponent* Owner);
    void __fastcall ImageMouseDown(TObject *Sender, TMouseButton Button,TShiftState Shift, int X, int Y);   //Функция для передвижения
    void __fastcall ImageMouseMove(TObject *Sender, TShiftState Shift,int X, int Y);     //Функция для передвижения
    void __fastcall ImageMouseUp(TObject *Sender, TMouseButton Button,TShiftState Shift, int X, int Y); //Функция для передвижения
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
#include <vector>
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
int OldX;
int OldY;
bool IsMouseDown=false;  //Глобальные переменные
 
std::vector<TImage*> imgList;  //Вектор
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ImageMouseDown(TObject *Sender, TMouseButton Button,TShiftState Shift, int X, int Y)
{
    OldX=X;
    OldY=Y;
    IsMouseDown=true; //Передаем координаты
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ImageMouseMove(TObject *Sender, TShiftState Shift,int X, int Y)
{
 if(IsMouseDown)
        {
            imgList[0]->Left+=X-OldX;
            imgList[0]->Top+=Y-OldY;    //Перемещаем компонент пока что только 1 квадрат
            //Проблема как тут нам двигать именно тот Image над которым стоит курсор
        }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ImageMouseUp(TObject *Sender, TMouseButton Button,TShiftState Shift, int X, int Y)
{
    IsMouseDown=false;  //Закончили передвигать
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
if (OpenDialog1->Execute()) {   //Выбрали файл
TImage * Pict = new TImage(Form1);
Pict->AutoSize = true;
Pict->Picture->LoadFromFile(OpenDialog1->FileName);   //Берем картинку для копирования, разбиения на части
 
int x1,x2,y;
x1=1;
x2=1;  //Не обязательно
for (int i=1; i < 5; i++) {
TImage *img=new TImage(this); //Динамический Image
 
if (i<3) {     //Так как пока делаю 4 квадрата то выстраиваем их в линию
img->OnMouseDown=ImageMouseDown;
img->OnMouseMove=ImageMouseMove;
img->OnMouseUp=ImageMouseUp;
img->Parent=Form1;
img->Height=200;
img->Width=200;
img->Left=200*x1;
img->Top=50;
imgList.push_back(img);    //Добавляем в наш вектор указатели
x1++;
}
 
else     //Эти в линию по теми чтобы картинка была целая
{
img->OnMouseDown=ImageMouseDown;
img->OnMouseMove=ImageMouseMove;
img->OnMouseUp=ImageMouseUp;
img->Parent=Form1;
img->Height=200;
img->Width=200;
img->Left=200*x2;
img->Top=250;
imgList.push_back(img);  //Добавляем в наш вектор указатели
x2++;
}
 
}
//ну для начала вот так копируем
imgList[0]->Canvas->CopyRect(imgList[0]->ClientRect, Pict->Canvas,Rect(0,0,Pict->Width / 2,Pict->Height / 2));
imgList[1]->Canvas->CopyRect(imgList[1]->ClientRect, Pict->Canvas,Rect(Pict->Width / 2,0,Pict->Width,Pict->Height / 2));
imgList[2]->Canvas->CopyRect(imgList[2]->ClientRect, Pict->Canvas,Rect(0,Pict->Height / 2,Pict->Width / 2,Pict->Height));
imgList[3]->Canvas->CopyRect(imgList[3]->ClientRect, Pict->Canvas,Rect(Pict->Width /2,Pict->Height / 2,Pict->Width,Pict->Height));
}
}
//---------------------------------------------------------------------------

void __fastcall TForm1::ImageMouseMove(TObject *Sender, TShiftState Shift,int X, int Y)
{
 if(IsMouseDown)
        {
        int listSize = imgList.size();
        for(int i = 0; i <listSize; ++i)
        {
            if(imgList[i] == Sender)
            {
            imgList[i]->Left+=X-OldX;
            imgList[i]->Top+=Y-OldY;    //Перемещаем компонент
            }
 
        }
        }
}

  const w = 6, h = 4, w_val = ImageSource->Width / w, h_val = ImageSource->Height / h, w_dif = (ImageSandbox->Width - ImageSource->Width) / (w-1), h_dif = (ImageSandbox->Height - ImageSource->Height) / (h-1);
  double w_koef = ImageSource->Picture->Bitmap->Width / ImageSource->Width;
  double h_koef = ImageSource->Picture->Bitmap->Height / ImageSource->Height;
  int i, j;
  for (i = 0; i <= h; i++)
  {
    ImageDest->Canvas->MoveTo(0, ImageDest->Height*i/h-0.1);
    ImageDest->Canvas->LineTo(ImageDest->Width, ImageDest->Height*i/h-0.1);
  }
 
  for (i = 0; i <= w; i++)
  {
    ImageDest->Canvas->MoveTo(ImageDest->Width*i/w-0.1, 0);
    ImageDest->Canvas->LineTo(ImageDest->Width*i/w-0.1, ImageDest->Height);
  }
 
  for (i = 0; i < w; i++)
    for (j = 0; j < h; j++)
    {
      ImageDest->Canvas->TextOutW(ImageDest->Left + i * w_val, ImageDest->Top + j * h_val, j*w+i+1);
      ImageSandbox->Canvas->CopyRect(Rect(i*(w_val+w_dif), j*(h_val+h_dif), i*(w_val+w_dif)+w_val, j*(h_val+h_dif)+h_val), ImageSource->Canvas, Rect(i*w_val*w_koef, j*h_val*h_koef, (i+1)*w_val*w_koef, (j+1)*h_val*h_koef));
//    BitBlt(ImageSandbox->Canvas->Handle, i*(w_val+w_dif), j*(h_val+h_dif), i*(w_val+w_dif)+w_val, j*(h_val+h_dif)+h_val, ImageSource->Canvas->Handle, i*w_val*w_koef, j*h_val*h_koef, SRCCOPY);
    }

// Для всех Image один обработчик
void __fastcall TForm2::ImageMouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift,
          int X, int Y)
{
    // Создаем TPanel на форме в количестве кусков рисунка так как TPanel имеет HWND,
    // на каждой панеле создаем TImage с Align = alClient и размером с кусок изображения.
    // Каждой паре Panel, Image присваиваем свой номер Tag
 
    // Для статически созданных TPanel
    TImage *Image =  dynamic_cast<TImage*>(Sender);
 
    TPanel* panel;
    for(int i = 0; i < ComponentCount; i++)
    {
        panel = dynamic_cast<TPanel*>(Components[i]);
        if(panel)
        {
            if(panel->Tag == Image->Tag)
            {
                ReleaseCapture();
                SendMessage(panel->Handle, WM_SYSCOMMAND, SC_MOVE | HTCAPTION, 0);
            }
        }
    }
 
    // Для динамически созданных TPanel
    // TPanel *panel[10];
    // panel[0] = new TPanel;
    // будет такой кусок кода
    /*
    TImage *Image =  dynamic_cast<TImage*>(Sender);
    ReleaseCapture();
    SendMessage(panel[Image->Tag]->Handle, WM_SYSCOMMAND, SC_MOVE | HTCAPTION, 0);
    */
}