int pixel[320][240]={0};
 Graphics::TBitmap*Bmp=new Graphics::TBitmap();
 Bmp->LoadFromFile("Source.bmp");
 Image1->Picture->Assign(Bmp);
 for (int y=0;yHeight;y  )
 {
  for (int x=0;xWidth;x  )
  {
   pixel[x][y]=Bmp->Canvas->Pixels[x][y];  //bmp轉array
  }
 }
 delete Bmp;
 for (int y=0;yHeight;y  )
 {
  for (int x=0;xWidth;x  )
  {
   Image2->Canvas->Pixels[x][y]=TColor(pixel[x][y]); //array轉bmp
  }
 }
 Image2->Picture->SaveToFile("array轉bmp檔.bmp");

void array3bmp(int *g,int w,int h,Graphics::TBitmap *bmp)
{
for (int y=0;yCanvas->Pixels[x][y]=TColor(g[x y*w]);  //bmp轉array
  }
 }
}
 

 
void array2bmp(int *g,int w,int h,Graphics::TBitmap *bmp)
{
 bmp->Height=h;
 bmp->Width=w;
 for (int y=0;yCanvas->Pixels[x][y]=TColor(g[x y*w]);
  }
 }
}