void __fastcall TForm1::OpenFile2Click(TObject *Sender)
{
int    Image_Width, Image_Height;
AnsiString FileName1;            if (!OpenPictureDialog1->Execute()) return;
         FileName1 = OpenPictureDialog1->FileName;            Image1->Picture->LoadFromFile(FileName1);
        Image_Height = Image1->Height;
        Image_Width = Image1->Width;
        GetBitmap();
}
//---------------------------------------------------------------------------
 void __fastcall TForm1::GetBitmap(void)
{
int    **Data;
        Data = new int*[Image_Width];
        for(int i = 0; i < Image_Width; i  )
        {
                Data[i] = new int[Image_Height];
                for(int j = 0; j < Image_Height; j  )
                        Data[i][j] = (Image1->Canvas->Pixels[i][j])&0xff;
        }
        }