При наведении курсора мыши на картинку получить матрицу 8х8 со значениями яркости пикселей

Image1->Canvas->Pixels[x][y]

int A[8][8];
int Xmm;//допустим эти х и у мы получили из MouseMove
int Ymm;
 
int step1,step2;
step1=-1;
step2=-1;
 
//пусть мы будем получать матрицу 8на8 относительно пикселя с коор 4,4
for (int x = Xmm-4; x <Xmm+4; x++)
{ step1++;
  for (int y= Ymm-4; y < Ymm+4; y++)
        {  step2++;
           A[step2][step1]=Image1->Canvas->Pixels[x][y];
        }
}
 
    for(int i=0;i<8;++i)
    {  // Выводим на экран строку i
       for(int j=0;j<8;++j)
          cout<<A[i][j]<<" ";
       cout<<endl; // Строка завершается символом перехода на новую строку
    }

if ((y<0)||(y>Image1.height))
 {
   step1++;
 }

if ((x<0)||(y>Image1.Width))
 {
   step2++;
 }

void __fastcall TForm1::Image2Click(TObject *Sender)
{
  TPoint P;
GetCursorPos(&P);
const int iMouseX = P.x;
const int iMouseY = P.y;
char x[5],y[5],z[10];
strcat (z,x);
strcat (z,y);
Memo1->Lines->Add("X");
Memo1->Lines->Add(iMouseX);
Memo1->Lines->Add("Y");
Memo1->Lines->Add(iMouseY);
Memo1->Lines->Add("Martix:");
 
int A[8][8];
int st1=-1,st2=-1;
for (int xx=iMouseX-4; xx<iMouseX+4;xx++)
{
      //  st1++;
        for (int yy=iMouseY-4; yy<iMouseY+4;yy++)
        {
        //        st2++;
                A[yy-iMouseY][xx-iMouseX]=Image2->Canvas->Pixels[xx][yy];
         //       st2=0;
                }
}
byte r=0;
for (int i=0; i<8; ++i)
for (int j=0;j<8;++j)
{
r=ColorToRGB(A[i][j]);
A[i][j]=r;
Memo1->Lines->Add(A[i][j]);
Memo1->Lines->Add(" ");
}

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
#include "string.h"
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button3Click(TObject *Sender)
{
Close ();
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
OpenPictureDialog1->Execute();
Image1->Picture->LoadFromFile(OpenPictureDialog1->FileName);
}
//---------------------------------------------------------------------------
 
    void SetBitmapPaletteToGreyScale(Graphics::TBitmap *pBitmap)
{
LOGPALETTE *pal;
HPALETTE hpal;
int i;
int PaletteSize; //Size of the palette buffer
pBitmap->PixelFormat = pf8bit;
pal = NULL;
PaletteSize = sizeof(TLogPalette) + (sizeof(TPaletteEntry) * 255);
pal = (LOGPALETTE *) malloc(PaletteSize);
pal->palVersion = 0x300;
pal->palNumEntries = 256;
for (i = 0; i <= 255; i++)
{
  pal->palPalEntry[i].peRed = i;
  pal->palPalEntry[i].peGreen = i;
  pal->palPalEntry[i].peBlue = i;
  pal->palPalEntry[i].peFlags = PC_NOCOLLAPSE;
}
hpal = CreatePalette(pal);
if(hpal != 0) pBitmap->Palette = hpal;
free(pal);
}
 
void __fastcall TForm1::Button2Click(TObject *Sender)
{
  byte r, g, b;
for(int i=0;i<Image1->Height;i++)
{
for(int j=0; j<Image1->Width; j++)
{
int c = ColorToRGB(Image1->Canvas->Pixels[j][i]);
r = c;
g = c >> 8;
b = c >> 16;
int avg = r + g + b;
avg /= 3;
Image2->Canvas->Pixels[j][i] = (TColor)RGB(avg, avg, avg);
}
}
}
//---------------------------------------------------------------------------
 
 
void __fastcall TForm1::Image2Click(TObject *Sender)
{
  TPoint P;
GetCursorPos(&P);
const int iMouseX = P.x;
const int iMouseY = P.y;
char x[5],y[5],z[10];
strcat (z,x);
strcat (z,y);
Memo1->Lines->Add("X");
Memo1->Lines->Add(iMouseX);
Memo1->Lines->Add("Y");
Memo1->Lines->Add(iMouseY);
Memo1->Lines->Add("Martix:");
 
int A[8][8];
int st1=-1,st2=-1;
for (int xx=iMouseX-4; xx<iMouseX+4;xx++)
{
        st1++;
        for (int yy=iMouseY-4; yy<iMouseY+4;yy++)
        {
                st2++;
                A[st2][st1]=Image2->Canvas->Pixels[xx][yy];
                st2=0;
                }
}
byte r=0;
for (int i=0; i<8; ++i)
for (int j=0;j<8;++j)
{
r=ColorToRGB(A[i][j]);
A[i][j]=r;
Memo1->Lines->Add(A[i][j]);
Memo1->Lines->Add(" ");
}
 
}
//---------------------------------------------------------------------------

const int count = 8;
DWORD A[count][count] = {0}; // TColor A[count][count];
// объявление массива
void __fastcall image1mouseup(TObject*,TMouseButton,TShiftState, int X, int Y)
// получение изображения в массив.
{
    for (int x = 0; x < count; x++)
        for (int y = 0; y < count; y++)
            A[x][y] = Image1->Picture->Bitmap->Canvas->Pixels[X+x][Y+y];
            // если хотите использовать X:Y - как центр,
            // то точки будут [X+x-count/2]:[Y+y-count/2]
}

if ( ( (X+x) < Image1->Picture->Bitmap->Width) && ( (Y+y) < Image1->Picture->Bitmap->Height) )