Graphics::TBitmap \ ScanLine

void __fastcall TForm1::Button2Click(TObject *Sender)
{
 Graphics::TBitmap *pBitmap = new Graphics::TBitmap();
// This example shows drawing directly to the Bitmap
  Byte *ptr;
  try
  {
    pBitmap->LoadFromFile("1.bmp");
    char tex[1000],prom[3];
    tex[0]=0;
   for (int y = 0; y < pBitmap->Height; y++)
    {
      ptr = (Byte *)pBitmap->ScanLine[y];

      for (int x = 0; x < pBitmap->Width; x++) {
          itoa(ptr[x],prom,10);
          strcat(tex,prom);
          //ptr[x]
              }
          strcat(tex,"\n");
            }
            Memo1->Text=tex;


 // Canvas->Draw(0,0,pBitmap);
  }
  catch (...)
  {
    ShowMessage("Could not load or alter bitmap");
  }
  delete pBitmap;

}