Обработка изображения без TImage

    data = new ColorSpace*[iHeight];
    for (int i = 0; i < iHeight; i++) {
      data[i] = new ColorSpace[iWidth];
      memcpy(data[i], picBMP->ScanLine[i], iWidth* sizeof(ColorSpace));
    }

//скриншот и подгрузка
unsigned DataHandle;
HPALETTE APalette;
Word Format;
Graphics::TBitmap *Bitmap=new Graphics::TBitmap;
HDC DC=GetDC(0);
try{
Bitmap->Height=Edit7->Text.ToInt();//Screen->Height
Bitmap->Width=Edit6->Text.ToInt();//Screen->Width
BitBlt(Bitmap->Canvas->Handle , 0, 0, Edit6->Text.ToInt(), //Screen->Width
Edit7->Text.ToInt(),DC, 0, 0, SRCCOPY); //Screen->Height
}
__finally
{
delete Bitmap;
ReleaseDC(0,DC);
}
//конец подгрузки

Image1->Picture->Bitmap->PixelFormat = pf24bit;
Byte *alpha = (Byte *)Image1->Picture->Bitmap->ScanLine[Y];
Byte *alpha2;
//alpha = GetPixel(Form1->Image1->Canvas->Handle, X, Y);
int red = alpha[X*3+2];
int green = alpha[X*3+1];
int blue = alpha[X*3];

currBMP->PixelFormat = pf24bit; // 24 разряда на пиксель

#pragma pack (push, 1)
// цветовая палитра и оттенки (для преобразования TColor)
// покомпонентное представление
// в скобках указаны цвета для сучая палитры (RGB)
struct ColorSpace {
  uchar byteLo; // компонента младший байт (Lower)   (R) (Y)
  uchar byteAv; // компонента средний байт (Average) (G) (Cb)
  uchar byteHi; // компонента старший байт (Hight)   (B) (Cr)
};

    // создаём буфер и копируем
    data = new ColorSpace*[currBMP->Height];
    for (int i = 0; i < iHeight; i++) {
      data[i] = new ColorSpace[currBMP->Width];
      memcpy(data[i], picBMP->ScanLine[i], currBMP->Width* sizeof(ColorSpace));
    }

#pragma pack (push, 1)

#pragma pack (push, 1)
// цветовая палитра и оттенки (для преобразования TColor)
// покомпонентное представление
// в скобках указаны цвета для сучая палитры (RGB)
struct ColorSpace {
  uchar byteLo; // компонента младший байт (Lower)   (R) (Y)
  uchar byteAv; // компонента средний байт (Average) (G) (Cb)
  uchar byteHi; // компонента старший байт (Hight)   (B) (Cr)
};

int iHeight = Bitmap->Height;
//data = new ColorSpace*[Bitmap->Height];
ColorSpace *data = new ColorSpace[Bitmap->Height];
    for (int i = 0; i < iHeight; i++) {
      data[i] = new ColorSpace[Bitmap->Width];
      memcpy(data[i], Bitmap->ScanLine[i], Bitmap->Width* sizeof(ColorSpace));
    }

Bitmap->PixelFormat = pf24bit;
ColorSpace **data = new ColorSpace*[Bitmap->Height];
int iHeight = Bitmap->Height;
for (int i = 0; i < iHeight; i++) {
      data[i] = new ColorSpace[Bitmap->Width];
      memcpy(data[i], Bitmap->ScanLine[i], Bitmap->Width* sizeof(ColorSpace));
    }

Byte *alpha = (Byte *)Bitmap->ScanLine[Y];
int red = alpha[X*3+2];
int green = alpha[X*3+1];
int blue = alpha[X*3];