создание теста

Unit1.cpp
int x=0;//глобальная
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
if ((CheckBox1->Checked==true)&&(CheckBox2->Checked==true)) x=x+1;//2 варианта ответа
Form1->Visible=false;//невидима
Form2->Visible=true;//видима
Form3->Visible=false;
}
//---------------------------------------------------------------------------
Unit2.cpp
extern int x;//глобальная
//---------------------------------------------------------------------------
void __fastcall TForm2::Button1Click(TObject *Sender)
{
if (CheckBox2->Checked==true) x=x+1;//1вариант ответа
Form1->Visible=false;
Form2->Visible=false;
Form3->Visible=true;
}
//---------------------------------------------------------------------------
Unit3.cpp
extern int x;//глобальная
//---------------------------------------------------------------------------
void __fastcall TForm3::Button1Click(TObject *Sender)
{
Label1->Caption=IntToStr(x);//вычисление и вывод ответа
}
//---------------------------------------------------------------------------
void __fastcall TForm3::Button2Click(TObject *Sender)
{
Form1->Close();//закрытие форм
Form2->Close();
Form3->Close();
}
//---------------------------------------------------------------------------