Quote:void __fastcall TForm1::FormCreate(TObject *Sender)
{
randomize();
for(int i = 0 ;i < 8; i++)
    {
    for(int j = 0 ;j < 8; j++)
    {
    bh[i][j]=random(8);
    }
    }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
int ProhodMassiva=0;
int OtstupVniz = 0;
NumImg=8;
Img=new TImage*[NumImg];
for(int j=0;j<NumImg;j++)
{
    for(int i=0;i<NumImg;i++)
    {
    Label7->Caption=Label7->Caption+bh[i][j] ;
    Label8->Caption=Label8->Caption+ProhodMassiva ;
    ProhodMassiva=ProhodMassiva++;
    Img[i]=new TImage(this);
    switch (bh[i][j])
    {
    case 0 : Img[i]->Picture->LoadFromFile("18.bmp"); break;
    case 1 : Img[i]->Picture->LoadFromFile("11.bmp"); break;
    case 2 : Img[i]->Picture->LoadFromFile("12.bmp"); break;
    case 3 : Img[i]->Picture->LoadFromFile("13.bmp"); break;
    case 4 : Img[i]->Picture->LoadFromFile("14.bmp"); break;
    case 5 : Img[i]->Picture->LoadFromFile("15.bmp"); break;
    case 6 : Img[i]->Picture->LoadFromFile("16.bmp"); break;
    case 7 : Img[i]->Picture->LoadFromFile("17.bmp"); break;
    default: ;
    }
    //Img[i]=new TImage(this);
    Img[i]->Parent=this;
    Img[i]->Left=25+i*45;
    Img[i]->Top=10+OtstupVniz;
    Img[i]->Visible=true;

    }
OtstupVniz=OtstupVniz+49;
Label7->Caption=Label7->Caption+" " ;
Label8->Caption=Label8->Caption+" " ;
}delete Img;
}

Отбой тревоги( Оказалось еще тупее ошибка чем я мог представить...
Шуруп помог.