Посчитать количество правильных ответов

#include <vcl.h>
#include <Math.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
 
bool currentAnswer;
short a,b = 0;
int rightAns = 0;
short currentNumber = 1;
 
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
 
}
 
 
void randomNumbers ()
{
        a = random ( 10);
        b = random ( 10);
        Form1 -> Edit1 -> Text = a;
        Form1 -> Edit2 -> Text = b;
}
 
void __fastcall TForm1::Panel1Click(TObject *Sender)
{
        randomize ();
        Label4 -> Caption = currentNumber;
 
        currentNumber = 1;
        rightAns = 0;
 
        Button1 -> Enabled = true;
        Panel1 -> Caption = "Заново";
        randomNumbers ();
        Label4 -> Caption = currentNumber;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
        if ( currentNumber < 11)
        {
 
                if (  this -> Edit3 -> Text != "")
                {
                        short result = StrToInt ( this -> Edit3 -> Text);
                        if ( result == a * b)
                        {
                                this -> Edit4 -> Text = "Вы ответили правильно!";
                                rightAns ++;
                        }
                        else this -> Edit4 -> Text = "Вы ответили не правильно!";
                        currentNumber ++;
                        randomNumbers ();
                        this -> Label4 -> Caption = currentNumber;
                        this -> Edit3 -> Text = "";
                }
                else
                {
                        this -> Edit4 -> Text = "Введите значение!";
                }
        }
 
        if ( currentNumber == 11)
        {
                currentNumber --;
                this -> Label4 -> Caption = currentNumber;
                this -> Edit4 -> Text = "Тест окончен, всего правильных ответов:" + IntToStr ( rightAns);
                this -> Button1 -> Enabled = false;
                this -> Edit1 -> Text = "";
                this -> Edit2 -> Text = "";
                Panel1 -> Caption = "Старт";
 
        }
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::FormCreate(TObject *Sender)
{
 
}