/*
LoadFromResourceName example
*/
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  Graphics::TBitmap *Bitmap1 = new Graphics::TBitmap();
  try
  {
    Bitmap1->LoadFromResourceName((int)HInstance, "THEBITMAP");
    Canvas->Draw(12,12,Bitmap1);
  }
  catch (...)
  {
    MessageBeep(0);
  }
  delete Bitmap1;
} 
