Срочно Работа с графикой

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
   : TForm(Owner)
{
}
//---------------------------------------------------------------------------
// TImage *Image1;  - заипхать на форму ...
// Height = Width = 320
void __fastcall TForm1::FormCreate(TObject *Sender)
{
   Graphics::TBitmap *Bitmap = new Graphics::TBitmap;
   Bitmap->Canvas->Brush->Color  = clBlack;
   Bitmap->Height = 40;
   Bitmap->Width = 40;
   int n = 0;
   for( int j = 0; j <= 8; j ++ )
      for( int i = 0; i <= 8; i ++ )
      {
         if(  i % 2 == 0 )
         {
            if( j % 2 == 0 ) n = 40; else n = 0;
            Image1->Canvas->CopyRect(Rect(i*40+n,j*40,40+i*40+n,40+j*40),Bitmap->Canvas, Rect(0,0,40,40));
         }
      }
}
//---------------------------------------------------------------------------