Problem z tworzeniem gry Borland 6

Witam. Otóż jestem amatorem programowanie i musze zrobić grę typu memory (czyli zapamietywanie i dopieranie w pary dwoch kart ). Mam problem, nie potrafie zrobic tak by kart po odkryciu wracaly do stanu zakrytego. Gdy wybiore 2 te same karty wszystko jest ok znikaja i gitara, ale gdy wybiore juz jedna dobra i jedna zla to niestety pozostaja odkryte .
Karty sa porownywane na podstawie parametru Tag. (Kazda para kart ma odpowiedni numerek). Gdy sa identyczne to znikaja, gdy sa nieidentyczne to wszystkie przybieraja podstawowa grafike (main.jpg). Niestety coś nie dizała nie wiem co, skonczyly mi sie pomysly. Bardzo bym prosił o pomoc bo mam nóż na gardle .

Tutaj daje link do calego projektu a poniżej kodzik .
http://www.speedyshare.com/files/20495107/Memory.zip

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Memo.h"
int klik = 0;
int tagi = 0;
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image1Click(TObject *Sender)
{
Image1->Picture->LoadFromFile("1.jpg");
klik=klik+1;
if (klik==1)
{
tagi=Image1->Tag;
};
while(klik==2)
{
        if(tagi==Image1->Tag)
        {
                Image1->Visible=false;
                Image2->Visible=false;
                klik=0;
        }
        else
        {
         klik=0;
         Image1->Picture->LoadFromFile("main.jpg");
        };
};
}
//---------------------------------------------------------------------------


void __fastcall TForm1::Image2Click(TObject *Sender)
{
Image2->Picture->LoadFromFile("1.jpg");
klik=klik+1;
if (klik==1)
{
tagi=Image2->Tag;
};
while(klik==2)
{
        if(tagi==Image2->Tag)
        {
                Image1->Visible=false;
                Image2->Visible=false;
                klik=0;
        }
        else
        {
         klik=0;
         ((TImage*)Sender)->Picture->LoadFromFile("main.jpg");
        };
};
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Image3Click(TObject *Sender)
{
Image3->Picture->LoadFromFile("2.jpg");
klik=klik+1;
if (klik==1)
{
tagi=Image3->Tag;
};
while(klik==2)
{
        if(tagi==Image3->Tag)
        {
                Image3->Visible=false;
                Image4->Visible=false;
                klik=0;
        }
        else
        {
         klik=0;
         ((TImage*)Sender)->Picture->LoadFromFile("main.jpg");
        };
};
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Image4Click(TObject *Sender)
{
Image4->Picture->LoadFromFile("2.jpg");
klik=klik+1;
if (klik==1)
{
        tagi=Image4->Tag;
};
while(klik==2)
{
        if(tagi==Image4->Tag)
        {
                Image3->Visible=false;
                Image4->Visible=false;
                klik=0;
        }
        else
        {
                klik=0;
                ((TImage*)Sender)->Picture->LoadFromFile("main.jpg");
        };
};
}
//---------------------------------------------------------------------------


void __fastcall TForm1::FormCreate(TObject *Sender)
{
Label1->Caption=klik;
}
//---------------------------------------------------------------------------