Graphics::TBitmap *Bmp = new Graphics::TBitmap();
  Bmp->Assign(Image1->Picture->Bitmap);  //Image1圖傳給Bmp
  Bmp->PixelFormat=pf24bit; 
  Byte *ptr;
  int R[100][100],G[100][100],B[100][100]; //假設Image1大小為100*100
                                           //宣告儲存R,G,B三值的陣列 
  for (int i=0;iHeight;i  )
  {
    ptr=(Byte *)Bmp->ScanLine[i]; //用ScanLine由左而右向每一像素點分別取出RGB三值) 再由上而下掃
    for(int j=0;jWidth;j  )     //B=ptr[3*j];G=ptr[3*j 1];R=ptr[j*3 2];
    {
      B[i][j]=ptr[3*j];
      G[i][j]=ptr[3*j 1];
      R[i][j]=ptr[3*j 2];
    }
  }
delete Bmp;