Meins

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  Graphics::TBitmap *hintergrund = new Graphics::TBitmap();
  hintergrund->Width = 64;
  hintergrund->Height = 64;
  TRect r;
  r.Left = 0;
  r.Bottom = 0;
  r.top = 63;
  r.right = 63;
  hintergrund->Canvas->Pen->Color = clBlack;
  hintergrund->Canvas->Pen->Width = 1;
  hintergrund->Canvas->Pen->Style = psSolid;
  hintergrund->Canvas->FillRect(r);

  int x,y;
  //for y 0..7
    //for x 0..7
      BitBlt(Form1->PaintBox1->Canvas->Handle,x*8,y*8,64,64,hintergrund->Canvas->Handle,64,64,SRCCOPY);

  hintergrund->Free();
}