Тест, трабла с счетчиком ответов

unit Unit2;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, jpeg, ExtCtrls, StdCtrls, Buttons, Menus, XPMan, IniFiles;
 
type
  TForm2 = class(TForm)
    MainMenu1: TMainMenu;
    N2: TMenuItem;
    N3: TMenuItem;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    TabSheet4: TTabSheet;
    TabSheet5: TTabSheet;
    Memo1: TMemo;
    RadioGroup1: TRadioGroup;
    btnStartTest: TButton;
    rb2: TRadioButton;
    rb3: TRadioButton;
    rb4: TRadioButton;
    rb5: TRadioButton;
    rb1: TRadioButton;
    btn1: TBitBtn;
    procedure FormCreate(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure btnStartTestClick(Sender: TObject);
    procedure rb1Click(Sender: TObject);
    procedure rb2Click(Sender: TObject);
    procedure rb3Click(Sender: TObject);
    procedure rb4Click(Sender: TObject);
    procedure rb5Click(Sender: TObject);
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form2: TForm2;
Quests:TIniFile;
IniQuest:TIniFile;
 
otvetQuest,ball,ballNo,OtvetYes,OtvetNo,Otvet,IntNextQuest,IncTestIni:Integer;
 
implementation
 
uses Unit4, Unit1;
 
{$R *.dfm}
 
procedure TForm2.FormCreate(Sender: TObject);
begin
PageControl1.ActivePageIndex:=0;
IncTestIni:=0;
ball:=0;
ballNo:=0;
end;
 
procedure TForm2.N2Click(Sender: TObject);
begin
form1.close;
end;
 
procedure TForm2.btnStartTestClick(Sender: TObject);
begin
btnStartTest.Enabled:=False;
rb1.Checked:=False;
rb2.Checked:=False;
rb3.Checked:=False;
rb4.Checked:=False;
rb5.Checked:=False;
Inc(IncTestIni);
IniQuest:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'Quest.ini');
Memo1.Lines.Clear;
Memo1.Lines.Add(IniQuest.ReadString('Quest'+IntToStr(IncTestIni),'Quest','Тест окончен!'));
end;
 
 
procedure TForm2.rb1Click(Sender: TObject);
begin
otvet:=1;
end;
 
procedure TForm2.rb2Click(Sender: TObject);
begin
otvet:=2;
end;
 
procedure TForm2.rb3Click(Sender: TObject);
begin
otvet:=3;
end;
 
procedure TForm2.rb4Click(Sender: TObject);
begin
otvet:=4;
end;
 
procedure TForm2.rb5Click(Sender: TObject);
begin
otvet:=5;
end;
 
 
procedure TForm2.btn1Click(Sender: TObject);
 
begin
begin
rb1.Checked:=False;
rb2.Checked:=False;
rb3.Checked:=False;
rb4.Checked:=False;
rb5.Checked:=False;
Inc(IncTestIni);
IniQuest:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'Quest.ini');
Memo1.Lines.Clear;
Memo1.Lines.Add(IniQuest.ReadString('Quest'+IntToStr(IncTestIni),'Quest','Тест окончен!'));
otvetQuest:=IniQuest.ReadInteger('Quest'+IntToStr(IncTestIni),'otvet',0);
if otvetQuest=otvet then
  begin
    ball:=ball+1;
  end
    else
      begin
        ballNo:=ballNo+1;
      end;
if Memo1.Lines[0] = 'Тест окончен!' then
  begin
    ShowMessage('вы закончили тест!'+#13+'правильных ответов:  '+IntToStr(ball)+#13+'не правильных ответов:  '+IntToStr(ballNo));
  end;
 
end;
end;
end.