void __fastcall TForm1::FormCreate(TObject *Sender)
{

     for (int i = 0; i < max; ++i){
                blok[i] = new TImage(this);
                        blok[i]->Parent = Form1;
        }
         for (int i=0;i< max ; i++)
         {
                blok[i]->Width=60;
                blok[i]->Height=20;
                blok[i]->Visible=false;

                Graphics::TBitmap* img = new Graphics::TBitmap();
                if (i<=11&&i>=0)
                img->LoadFromFile("img/czerwona.bmp");
                if (i<=23&&i>11)
                img->LoadFromFile("img/zielona.bmp");
                if (i<=35&&i>23)
                img->LoadFromFile("img/niebieska.bmp");
                if (i<=max-1&&i>35)
                img->LoadFromFile("img/rozowa.bmp");
                blok[i]->Picture->Bitmap->Assign(img);


         }
          int j=0;
          int k=0;
         for (int i=0;i< max ; i++,k++)
         {
                 if (i%12==0&&i!=0)   j++;
                 if (i%12==0&&i!=0)    k=0;
                blok[i]->Top = 10+j*24;

                blok[i]->Left=10+k*64;
         }

      do_wygranej=max;
          Timer_pilka->Enabled=false;
          sndPlaySound("snd/intro.wav", SND_ASYNC);
}