Как написать программу тестирования

RadioButton1->Checked = false;

//это клавиша начать тест и отсюда запускаются вопросы и тут будет подсчет
void __fastcall TForm1::Button3Click(TObject *Sender)
{
 const int size1=58;
 N=size1;
 const char *array[size1]={"","","","","","","","","",""};
for(int i=0;i<N;i++){
  Label1->Caption=array[i];
}
//это клавиша переключения вопроса
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 //вот тут я не знаю что написать чтобы обратиться в массив и переключить вопрос
}

Button2Click(Sender);

//кнопка запуска теста и массива
void __fastcall TForm1::Button3Click(TObject *Sender)
{
 const int size1=58;
 N=size1;
 const char *array[size1]={
 "1. Трудно ли тебе держаться на одном уровне со всем классом?",
 "2. Волнуешься ли ты, когда учитель говорит, что собирается проверить, насколько ты знаешь материал?",
 "3. Трудно ли тебе работать в классе так, как этого хочет учитель?",
 "4. Снится ли тебе временами, что учитель в ярости от того, что ты не знаешь урок?",
 "5. Случалось ли, что кто-нибудь из твоего класса бил или ударял тебя",
...
"58. Дрожит ли слегка твоя рука, когда учитель просит сделать задание на доске перед всем классом?"
 };
ShowMessage("Проверьте клавиши Caps Lock и Язык ввода языка!");
 PasswordDlg->ShowModal();
   if(PasswordDlg->Tag==1){
  Form1->BorderStyle=bsSizeable;
  Form1->Constraints->MinHeight=600;
  Form1->Constraints->MinWidth=800;
  Form1->Constraints->MaxHeight=0;
  Form1->Constraints->MaxWidth=0;
   Button2->Visible=False;
 N6->Visible=True;
 N6->Enabled=False;
 N2->Visible=True;
 N1->Visible=True;
 N2->Visible=True;
 N3->Visible=True;
 N5->Visible=True;
Panel1->Visible=True;
   Button1->Visible=True;
   Button3->Visible=False;
 ShowMessage("Внимание тест в бета версии не имеет клавиши возврата к предыдущему вопросу");
for(int i=0;i<N;i++){
   Label1->Caption=array[i];
}
//кнопка переключения вопроса
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 i++;
}
 
прошу исправь текст в том месте где он не верен:)