Таймер для игры крестики нолики

int TForm1 :: proverka(){ 
int short i=0,j=0,x=0,y=0,x1=0,y1=0;
 
for(i=0;i<3;i++){ 
for(j=0;j<3;j++){
if(mas[i][j]!=0) x+=1;
if(mas[i][j]==0) y++;
}
if(y>0) break;
if(x==9) return -4; 
}
 
{
 
for(i=0;i<3;i++){
x=0;y=0;
for(j=0;j<3;j++){
if(mas[i][j]==1) x+=1;
if(mas[i][j]==2) y+=1;
}
if(x==3) return -1; 
if(y==3) return -2; 
 
}
 
for(j=0;j<3;j++){ 
x=0;y=0;
for(i=0;i<3;i++){
if(mas[i][j]==1) x+=1;
if(mas[i][j]==2) y+=1;
}
if(x==3) return -1; 
if(y==3) return -2; 
}
x=0;y=0;x1=0;y1=0;
 
for(i=0;i<3;i++){ 
for(j=0;j<3;j++){
if(i==j){
if(mas[i][j]==1) x+=1;
if(mas[i][j]==2) y+=1;
}
if((i+j)==2){
if(mas[i][j]==1) x1+=1;
if(mas[i][j]==2) y1+=1;
}
 
}
if(x==3) return -1; 
if(y==3) return -2; 
if(x1==3) return -1; 
if(y1==3) return -2; 
}
return -3; 
}
}
//---------------------------------------------------------------------------------------
 
void TForm1 :: ris_hod_Comp(int short &x,int short &y) {
if(x==0 && y==0){Image1->Picture->LoadFromFile(hod_ris2); mas[x][y]=2;}
if(x==0 && y==1){Image2->Picture->LoadFromFile(hod_ris2); mas[x][y]=2;}
if(x==0 && y==2){Image3->Picture->LoadFromFile(hod_ris2); mas[x][y]=2;}
if(x==1 && y==0){Image4->Picture->LoadFromFile(hod_ris2); mas[x][y]=2;}
if(x==1 && y==1){Image5->Picture->LoadFromFile(hod_ris2); mas[x][y]=2;}
if(x==1 && y==2){Image6->Picture->LoadFromFile(hod_ris2); mas[x][y]=2;}
if(x==2 && y==0){Image7->Picture->LoadFromFile(hod_ris2); mas[x][y]=2;}
if(x==2 && y==1){Image8->Picture->LoadFromFile(hod_ris2); mas[x][y]=2;}
if(x==2 && y==2){Image9->Picture->LoadFromFile(hod_ris2); mas[x][y]=2;}
 
}
bool TForm1:: hod_kompa_func(int short &n){
int short i=0,j=0,i1=0,j1=0,x=0;
for(i=0;i<3;i++) 
for(j=0;j<3;j++)
if(mas[i][j]!=0) x++;
 
if(x<=2){ 
i=1;j=1;
if(mas[i][j]==0){ 
 
ris_hod_Comp(i,j);
return true;
}
i=0;j=0;
if(mas[i][j]==0){ 
 
ris_hod_Comp(i,j);
return true;
}
    }
 
//---------
 
for(i=0;i<3;i++){ 
x=0;j1=3;
for(j=0;j<3;j++){
if(mas[i][j]==n) x++;
if(mas[i][j]==0) j1=j;
if(x==2 && j1!=3){
 
ris_hod_Comp(i,j1);
return true;
}
}
} 
 
for(j=0;j<3;j++){ 
x=0;i1=3;
for(i=0;i<3;i++){
if(mas[i][j]==n) x++;
if(mas[i][j]==0) i1=i;
if(x==2 && i1!=3){
 
ris_hod_Comp(i1,j);
return true;
}
}
} 
 
int x2=0,x1=0,i2=0,j2=0;
j1=3;j2=3;
for(i=0;i<3;i++){ for(j=0;j<3;j++){
if(i==j){
if(mas[i][j]==n) x1+=1; // 
if(mas[i][j]==0) {j1=j;i1=i;}
}
if((i+j)==2){ if(mas[i][j]==n) x2+=1;
if(mas[i][j]==0) {j2=j;i2=i;}
}
 
if(x1==2 && j1!=3){
 
ris_hod_Comp(i1,j1);
return true;
}
if(j2!=3 && x2==2){
 
ris_hod_Comp(i2,j2);
return true;
}
 
} 
} 
return false; 
}
 
void TForm1::hod_Comp(){
bool hod;
int i,j;
int prov=0;
 
prov=proverka();
switch(prov){
case -1: {vigrish_User(); return;}
case -2: {vigrish_Comp(); return;}
case -4: {vigrish_Nichia();return;}
}
 
hod=hod_kompa_func(2);
if(hod==false)hod=hod_kompa_func(1);
if(hod==false){
 
srand((unsigned)time( NULL ));
 
do{
 
i=rand()%3;
j=rand()%3;
}
while(mas[i][j]!=0);
ris_hod_Comp(i,j);
}
 
prov=proverka();
switch(prov){
case -1: {vigrish_User(); return;}
case -2: {vigrish_Comp(); return;}
case -4: {vigrish_Nichia();return;}
}
}
 
//************************************************************************************
void TForm1::initiz(){
char hod_ris3[10];
memset(hod_ris3,0,9);
strcpy(hod_ris3,"fon0.bmp");
Image1->Picture->LoadFromFile(hod_ris3);
Image2->Picture->LoadFromFile(hod_ris3);
Image3->Picture->LoadFromFile(hod_ris3);
Image4->Picture->LoadFromFile(hod_ris3);
Image5->Picture->LoadFromFile(hod_ris3);
Image6->Picture->LoadFromFile(hod_ris3);
Image7->Picture->LoadFromFile(hod_ris3);
Image8->Picture->LoadFromFile(hod_ris3);
Image9->Picture->LoadFromFile(hod_ris3);
for(int i=0;i<3;i++)
for(int j=0;j<3;j++)
mas[i][j]=0;
 
}
void TForm1::hod_User(int ris){
 
switch(ris){
case 1:{if(mas[0][0]==0){Image1->Picture->LoadFromFile(hod_ris1);
mas[0][0]=1;break;}else return;}
case 2:{if(mas[0][1]==0){Image2->Picture->LoadFromFile(hod_ris1);
mas[0][1]=1;break;}else return;}
case 3:{if(mas[0][2]==0){Image3->Picture->LoadFromFile(hod_ris1);
mas[0][2]=1;break;}else return;}
case 4:{if(mas[1][0]==0){Image4->Picture->LoadFromFile(hod_ris1);
mas[1][0]=1;break;}else return;}
case 5:{if(mas[1][1]==0){Image5->Picture->LoadFromFile(hod_ris1);
mas[1][1]=1;break;}else return;}
case 6:{if(mas[1][2]==0){Image6->Picture->LoadFromFile(hod_ris1);
mas[1][2]=1;break;}else return;}
case 7:{if(mas[2][0]==0){Image7->Picture->LoadFromFile(hod_ris1);
mas[2][0]=1;break;}else return;}
case 8:{if(mas[2][1]==0){Image8->Picture->LoadFromFile(hod_ris1);
mas[2][1]=1;break;}else return;}
case 9:{if(mas[2][2]==0){Image9->Picture->LoadFromFile(hod_ris1);
mas[2][2]=1;break;}else return;}
}
hod_Comp();
 
}
 
void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
 if(BitBtn1->Caption=="Начать"){
RadioButton1->Enabled=false;
RadioButton2->Enabled=false;
BitBtn1->Caption="Выбор стороны";
Panel1->Visible=false;
initiz();
if (RadioButton1->Checked){
 
}
if (RadioButton2->Checked){
 hod_Comp();
}
return;
}
 
if(BitBtn1->Caption!="Начать"){
RadioButton1->Enabled=true;
RadioButton2->Enabled=true;
BitBtn1->Caption="Начать";
Panel1->Visible=true;
return;
}
 
}

Timer->Interval = 5000; // 5 sec
// или
Timer->Interval = 10000; // 10 sec

Sleep(5000); // 5 sec
// или
Sleep(10000); // 10 sec

Application->ProcessMessages();

...TForm1::Button1Click(TObject Sender)
{
  Label1->Caption = "Начали";
  Application->ProcessMessage();
  Sleep(5000);
  Label1->Caption = "Закончили";
}

void __fastcall TForm1::Timer1Timer(TObject *Sender)
}
  if(sec<=5)
    Label1->Caption="0"+IntToStr(sec);  
  else
    ShowMessage("Время вышло!");
}

if (ChekBox1->Checked==true) // если выбрано 2 секунды {
Timer1->Interval=2000;// твои две секунды
Timer1->Enabled=true;// запускаем таймер
}