Расширить возможности теста на внимательность

#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
  const n=4;  int x0,y0;
    const     dx=60;const dy=70;
         // Ðàçìåðû êàðòèíîê
         typedef String mas[n];
         typedef  int  mas_int[n];
const  mas fname={"1.bmp","2.bmp","3.bmp","4.bmp"};
int  i,z ;
       int  nom_picture;
    TImage *Im[n];
      mas_int  number;
 
void pole()
{int i,x,y;
       y=y0;
       for (i=0;i<n;i++)
         {
            x=x0+(i)*dx;
            Form1->Canvas->Pen->Color=clBlack;
               Form1->Canvas->Pen->Width=2;
              Form1->Canvas->Brush->Color=Form1->Color;
                  Form1->Canvas->Rectangle(x,y,x+dx,y+dy);
               }
}
  void __fastcall TForm1::ImClick(TObject *Sender)
{
int k1;
      k1=int(((TControl *)Sender)->Left-x0)/dx;
 
      Label1->Caption=IntToStr(k1);
 
   if (Im[k1]!=NULL) Im[k1]->Hide();
      Im[k1]->Visible=true;
 
      if (number[k1]==nom_picture)  {Label1->Caption="Âû óãàäàëè";
     for (i=0;i<4;i++)
       Im[i]->Visible=false; Im[k1]->Visible=true; }
   else
          {Im[k1]->Visible=true;Label1->Caption="Íå óãàäàëè";   for (i=0;i<4;i++)
       Im[i]->Visible=false;  Im[k1]->Visible=true;
          }
}
void ris()
{
 
     nom_picture=random(4);
     Form1->Image1->Picture->LoadFromFile(fname[nom_picture]);
     Form1->Image1->Left=5;
     Form1->Image1->Top=20;
     Form1->Image1->Transparent=true;
     Form1->Image1->Visible=true;
}
 
void zapolnenie()  //Çàïîëíåíèå ìàññèâà ÷èñëàìè îò 1 äî 4
{int i,k;
  bool  b;
   randomize;
   b=false;
  for (i=0;i<n;i++)
    number[i]=0;
 for (i=0;i<n;i++)
 {
    b=false;
    do
   { k=random(n);
    if (number[k]==0)
       {number[k]=i;
       b=true;} }
    while (b==false);
 }
}
 
void __fastcall TForm1::FormCreate(TObject *Sender)
{
int i;
x0=100;
y0=22;
 
  Timer1->Enabled=false;
  Timer1->Interval=50;
  randomize;
  zapolnenie();
   for (i=0;i<n;i++)  // Ñîçäàíèå ìàññèâà TImage
    {
         Im[i]=new TImage(Form1);
         Im[i]->Parent=Form1;
         Im[i]->Picture->LoadFromFile(fname[number[i]]);
         Im[i]->Height=60;
         Im[i]->Width=45;
         Im[i]->OnClick=ImClick;
         Im[i]->Left=x0+i*(dx)+5;
 
 
         Im[i]->Top=y0+5;
         Im[i]->Transparent=true;
         Im[i]->Visible=false;
       }
 
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
 Timer1->Interval=Timer1->Interval-1;
     if (Timer1->Interval==0) {        Timer1->Enabled=false;
        pole();   // Êàðòèíêè çàêðûâàþòñÿ
        ris(); //  Âèäíà îäíà ñëó÷àéíàÿ êàðòèíêà
     }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 
 Label1->Caption="";
  Timer1->Enabled=true;
  Timer1->Interval=50;
  Image1->Visible=false;
  zapolnenie();
  pole();
   for (i=0;i<n;i++)
       {
         Im[i]->Picture->LoadFromFile(fname[number[i]]);
         Im[i]->Visible=true;
       }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------