Загрузить изображение в массив

// показательный пример, сам сделаешь загрузишь как надо массив объявишь в классе...
void __fastcall TForm1::BitBtn1Click(TObject *Sender) {
 
     const char* filename = "X:\\xxx.bmp";
     HBITMAP  bitmap = (HBITMAP) LoadImage((HINSTANCE) GetWindowLong(Handle,  GWL_HINSTANCE),
                             filename, IMAGE_BITMAP, 0, 0,LR_LOADFROMFILE);
     if(bitmap == NULL) {
            ShowMessage("Не могу загрузить битовый файл !");
            return;
     }
 
     BITMAP  info;
     ZeroMemory(&info, sizeof(BITMAP));
     GetObject(bitmap, sizeof(BITMAP), &info);
 
     int bytes         = info.bmBitsPixel >> 3;  // преобразуем кол-во бит в байт
     unsigned int size = (unsigned)info.bmWidth * info.bmWidth * bytes;
 
     BYTE*  buf = new BYTE[size];
     if(buf == NULL) {
          DeleteObject(bitmap);
          ShowMessage("Не могу создать буфер под массив, не хватает памяти !");
          return;
     }
     GetBitmapBits(bitmap, size, buf);
 
    // преобразуем в чёрно белый цвет, если это цветное изображение
    // вот так получается доступ к массиву, к битмапу легче к исходным байтам-пикселам 
    // получить доступ вот к сжатыми по RLE, LZW тут уже больше вычислений требуется JPEG, PNG, GIF.
    for(long y = 0; y < info.bmHeight; y++) {
         for(long x = 0; x < info.bmWidth; x++) {
 
               DWORD pixel  = *(DWORD*) ((buf) + (y * info.bmWidth + x) * bytes);
               *(DWORD*) ((buf) + (y * info.bmWidth + x) * bytes) = RGB(pixel, pixel, pixel);
 
               // вот так будет зелённый цвет green(0,N,0), blue(0,0,N), red(N,0,0).....
               //  *(DWORD*) ((buf) + (y * info.bmWidth + x) * bytes) = RGB(0, pixel, 0);
 
         }
      }
      SetBitmapBits(bitmap, size, buf);
 
        //************************* ПОСМОТРИМ ЧТО ПОЛУЧИЛОСЬ****
 
       // создаём своместимый контекст
      HDC       dc    = CreateCompatibleDC(Canvas->Handle);
      HPALETTE  pal = CreateHalftonePalette(Canvas->Handle); //палитру с таким набором
      HPALETTE  old = SelectObject(dc, pal);
 
      HGDIOBJ   gdi = SelectObject(dc, bitmap);
 
      // выводим на форму, временно
      BitBlt(Canvas->Handle, 0, 0, info.bmWidth, info.bmHeight, dc, 0, 0, SRCCOPY);
 
      // вот так присвоить изображение элементу TImage
      Image1->Width  = info.bmWidth;
      Image1->Height = info.bmHeight;
      BitBlt(Image1->Canvas->Handle, 0, 0, info.bmWidth, info.bmHeight, dc, 0, 0, SRCCOPY);
 
       // здесь чистка
      SelectObject(dc, pal);
      SelectObject(dc, gdi);
      DeleteObject(pal);
      ReleaseDC(Handle, dc);
      DeleteDC(dc);
      delete[] buf;
      buf = NULL;
      DeleteObject(bitmap);
}