Проблема с видимостью переменных

#include <vcl.h>
#pragma hdrstop
 
#include "UnitTest.h"
#include "UnitResults.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormTest *FormTest;
int FirstAttempt=0, question=0, attempts=3;
 
void NextQuestion(int question, int *masA, int *masB, int *masH)
{
 FormTest->LabelQNum->Caption="Вопрос №"+IntToStr(question+1)+" из 6";
 FormTest->LabelA->Caption="a="+IntToStr(masA[question]);
 FormTest->LabelB->Caption="b="+IntToStr(masB[question]);
 FormTest->LabelH->Caption="h="+IntToStr(masH[question]);
 FormTest->EditAnswer->Text="";
}
//---------------------------------------------------------------------------
__fastcall TFormTest::TFormTest(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFormTest::ButtonHintClick(TObject *Sender)
{
ShowMessage("Площадь трапеции равна произведению полусуммы её оснований на её высоту");
}
//---------------------------------------------------------------------------
void __fastcall TFormTest::ButtonAnswerClick(TObject *Sender)
{
double s;
double masS[6]={10, 18, 27, 64, 61.5, 142.5};
int    masA[6]={6,  7,  10, 21, 26,   35};
int    masB[6]={4,  5,  8,  11, 15,   22};
int    masH[6]={2,  3,  3,  4,  3,    5};
 
s=StrToFloat(EditAnswer->Text);
 
if (question<6)
    {
if (s==masS[question] && question==3)//БЛОК ПРАВИЛЬНО ПОСЛЕ ТРЕТЬЕГО
      {
        if (attempts!=3)//правильно не с первой попытки после третьего вопроса
        {
        ShowMessage("Правильно. Подсказка исчезла. Задания стали сложнее");
        ButtonHint->Visible=false;
        NextQuestion(question, masA, masB, masH);
        }
        else
        if (attempts==3)//правильно с первой попытки после третьего вопроса
        {
        ShowMessage("Правильно. С первой попытки. Подсказка исчезла. Задания стали сложнее. К вашему счёту прибавилось одно очко");
        ButtonHint->Visible=false;
        NextQuestion(question, masA, masB, masH);
        FirstAttempt++;
        }
      }
      else
if (s==masS[question-1])//БЛОК ПРАВИЛЬНО
      {
        if (attempts==3)//правильно с первой попытки
        {
        ShowMessage("Правильно. С первой попытки. К вашему счёту прибавилось одно очко");
        NextQuestion(question, masA, masB, masH);
        FirstAttempt++;
        }
        else
        if (attempts!=3)//правильно не с первой попытки
        {
        ShowMessage("Правильно");
        NextQuestion(question, masA, masB, masH);
        }
      }
      else
if (s!=masS[question])//БЛОК НЕПРАВИЛЬНО
      {
        if (question==3 && attempts==0)//неправильно нет попыток после третьего вопроса
        {
        ShowMessage("Неправильно. Попытки закончились. Правильный ответ: "+FloatToStr(masS[question-1])+". Подсказка исчезла. Задания стали сложнее");
        ButtonHint->Visible=false;
        NextQuestion(question, masA, masB, masH);
        }
        else
        if (attempts==1)//неправильно нет попыток
        {
        ShowMessage("Неправильно. Попытки закончились. Правильный ответ: "+FloatToStr(masS[question-1]));
        NextQuestion(question, masA, masB, masH);
        }
        else
        if (attempts>0)//неправильно
        {
        attempts--;
        ShowMessage("Неправильно. Попробуйте ещё раз. Попыток осталось: "+IntToStr(attempts));
        EditAnswer->Text="";
        }
      }
if (question==6)//БЛОК 6 ВОПРОСА И ОКОНЧАНИЯ ТЕСТА
      {
        if (s!=masS[question-1] && attempts>0)//неправильно
        {
        attempts--;
        ShowMessage("Неправильно. Попробуйте ещё раз. Попыток осталось: "+IntToStr(attempts));
        EditAnswer->Text="";
        }
        else
        if (s==masS[question-1] && attempts==3)//правильно с первой попытки
        {
        ShowMessage("Правильно. С первой попытки. К вашему счёту прибавилось одно очко");
        FirstAttempt++;
        Sleep(300);
        FormResults->EditFirstAttempt->Text=IntToStr(FirstAttempt);
        FormTest->Hide();
        FormResults->ShowModal();
        }
        else
        if (s==masS[question-1] && attempts!=3)//правильно не с первой попытки
        {
        ShowMessage("Правильно");
        Sleep(300);
        FormResults->EditFirstAttempt->Text=IntToStr(FirstAttempt);
        FormTest->Hide();
        FormResults->ShowModal();
        }
      }
    }
}
//---------------------------------------------------------------------------