Игра "Нахождение одинаковых картинок". Зависает при старте новой игры

#include <vcl.h>
#pragma hdrstop
 
 
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
#define MAX_SIZE 32
#define MAX_H 8
#define MAX_W 8
// #define DEBUG // ðåæèì îòëàäêè
int Pole[MAX_W][MAX_H]; // ïîëå
/* Pole[i][j] < 100 - êîä êàðòèíêè, êëåòêà çàêðûòà;
Pole[i][j] >= 100 íî < 200 - êëåòêà îòêðûòà
(èãðîê âèäèò êàðòèíêó);
Pole[i][j] >= 200 - èãðîê íàøåë ïàðó äëÿ ýòîé êàðòèíêè
*/
Graphics::TBitmap *Pictures; // êàðòèíêè
int np; // êîëè÷åñòâî ïàð êàðòèíîê
int nf; // êîë-âî îòêðûòûõ (íàéäåííûõ) ïàð êàðòèíîê
int no; // êîëè÷åñòâî îòêðûòûõ â äàííûé ìîìåíò êëåòîê
TPoint open1; // êîîðäèíàòû 1-îé îòêðûòîé êëåòêè
TPoint open2; // êîîðäèíàòû 2-îé îòêðûòîé êëåòêè
int W,H; // Êîë-âî êëåòîê ïî ãîðèçîíòàëè è âåðòèêàëè.
// Ïðîèçâåäåíèå W è Í äîëæíî áûòü êðàòíî 2-ì
int WK, HK; // ðàçìåð êëåòêè (êàðòèíêè
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::FormCreate(TObject *Sender)
{
int np;
Pictures = new Graphics::TBitmap();
try {
Pictures->LoadFromFile ("pictures.bmp") ;
}
catch (EFOpenError &e)
{
ShowMessage("Îøèáêà äîñòóïà ê ôàéëó êàðòèíîê.");
return;
}
HK = Pictures->Height-1;
WK = HK;
np = Pictures->Width/WK;
if ( np < 15)
H = 4;
else H = 5;
W = (np*2)/H;
ClientHeight = H * HK;
ClientWidth = W * WK;
Timer1->Enabled = False;
Timer1->Interval = 200;
 
NewGame();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::NewGame()
{
int r; // ñëó÷àéíîå ÷èñëî
int buf[MAX_SIZE];
/* â buf[i] çàïèñûâàåì, ñêîëüêî ðàç ÷èñëî i
çàïèñàëè â ìàññèâ Pole */
int i, j; // èíäåêñû ìàññèâîâ
for (i = 0; i < np;i++ )
buf[i] = 0;
Randomize();
for (i = 0; i < H; i++)
for (j = 0; j < W; j++) {
do {
r = RandomRange(0,np);
} while ( buf[r] ==2 );
Pole[i][j] = r; // êîä êàðòèíêè
buf[r]++;
}
nf = 0;
};
 
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
Pole[open1.x][open1.y] += 100;
Pole[open2.x][open2.y] += 100;
no = 0;
Kletka(open2.x,open2.y);
Kletka(open1.x,open1.y);
Form1->Timer1->Enabled = false ;
if ( nf == W*H/2 )
{
Canvas->Font->Name = "Tahoma";
Canvas->Font->Size = 16;
Canvas->Font->Color = clBlue;
Canvas->Font->Color = clBlack;
Canvas->TextOut(100,160,"Game Over!");
Canvas->Font->Size = 10;
Canvas->TextOut(120,210,"(ñ) ÊóëüòèíÍ.Á., 2005");
};
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N1Click(TObject *Sender)
{
NewGame();
ShowPole();
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::ShowPole()
{
int row, col;
for ( row = 0; row < H; row++)
for (col = 0; col < W; col++)
Kletka(row,col);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Kletka(int col,int row)
{
int x, y;
TRect src, dst;
x = (col)*WK;
y = (row)*HK;
if ( Pole[col][row] >= 200 ) {
Canvas->Brush->Color = clBtnFace;
Canvas->Pen->Color = clBtnFace;
Canvas->Rectangle(x, y, x+WK-2, y+HK-2);
return;
};
if ( (Pole[col][row] >= 100) && (Pole[col][row] < 200) ) {
 src = Bounds((Pole[col][row]-100 )*WK,0,WK,HK);
 dst = Bounds(x,y,HK-2,WK-2);
 Form1->Canvas->CopyRect(dst,Pictures->Canvas,src);
 
Canvas->Pen->Color = clBlack;
Canvas->Brush->Style = bsClear;
Canvas->Rectangle(x,y,x+WK-2,y+HK-2);
return;
};
if ( (Pole[col][row] >= 0) && (Pole[col][row] < 100))
 
{
Canvas->Brush->Color = clBtnFace;
Canvas->Pen->Color = clBlack;
Canvas->Rectangle(x,y,x+WK-2,y+HK-2);
}
#ifdef DEBUG
// ïîäñêàçêà - íîìåð êàðòèíêè
Canvas->Font->Color = clBlack;
Canvas->TextOut(x+l5,y+15, IntToStr(Pole[col][row]));
#endif
};
 
void __fastcall TForm1::FormMouseDown(TObject *Sender, TMouseButton Button,
      TShiftState Shift, int X, int Y)
{
int col;
int row;
col = X/WK;
row = Y/HK;
 
if ( Pole[col][row] >= 200 )
return;
if ( no == 0 )
{
no = 1 ;
open1.x = col;
open1.y = row;
Pole[open1.x][open1.y] += 100;
Kletka(open1.x,open1.y);
return;
};
if ( no == 1 )
{
open2.x = col;
open2.y = row;
if ( (open1.x == open2.x) && (open1.y == open2.y) )
return;
else
{
no = 2; // òåïåðü îòêðûòû äâå êëåòêè
Pole[open2.x][open2.y] += 100;
Kletka(open2.x,open2.y);
if ( Pole[open1.x][open1.y] == Pole[open2.x][open2.y] )
{
nf++;
Form1->Timer1->Enabled = True;
};
return;
}
};
if ( no == 2 )
{
Pole[open1.x][open1.y] -= 100;
Pole[open2.x][open2.y] -= 100;
Kletka (open1.x, open1.y);
Kletka(open2.x,open2.y);
open1.x = col;
open1.y = row;
no = 1;
Pole[open1.x][open1.y] += 100;
Kletka(open1.x,open1.y);
}
};
 
 
//---------------------------------------------------------------------------
 
void __fastcall TForm1::N2Click(TObject *Sender)
{
WinExec("hh.exe dpic.chm", SW_RESTORE);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormPaint(TObject *Sender)
{
ShowPole();
}
//---------------------------------------------------------------------------