Исправление ошибок. игра Викторина

[Vladya]

Добрый вечер! помогите исправить код что-бы он был попроще а то я такого намутил что самому страшно. И просьба подсказать как сдеть счетчик? Теперь более подробно:
Программа моя ето викторина, которая должна задавать вопросы и давать несколько вариантов ответов. Но у меня не получаеться сделать так что бы она выводила количество правильных ответов, подскажите пожалуйста. Вот код программы и скрин как она выглядит.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, StdCtrls, ComCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    GroupBox1: TGroupBox;
    RadioGroup1: TRadioGroup;
    Label1: TLabel;
    ProgressBar1: TProgressBar;
    Button1: TButton;
    Button2: TButton;
    BitBtn1: TBitBtn;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Label4: TLabel;
    CheckBox1: TCheckBox;
    Timer1: TTimer;
    Button3: TButton;
    Button4: TButton;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    procedure BitBtn1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
             private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses StrUtils;

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
GroupBox1.Visible:=True;
RadioGroup1.Visible:=True;
RadioButton1.Visible:=True;
RadioButton2.Visible:=True;
RadioButton3.Visible:=True;
RadioButton4.Visible:=True;
ProgressBar1.Visible:=True;
Button1.Visible:=True;
Button2.Visible:=True;
BitBtn1.Visible:=False;
Label1.Caption:='Что такое BitBtn?';
RadioButton1.Caption:='Кнопка с рисунком';
RadioButton2.Caption:='Команда';
RadioButton3.Caption:='Переключатель';
RadioButton4.Caption:='Это просто набор букв.';
CheckBox1.Visible:=False;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Close;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Button1.Visible:=False;
Button3.Visible:=True;
Label1.Caption:='Что такое Memo?';
RadioButton2.Caption:='Поле для ввода текста';
RadioButton1.Caption:='Поле для рисования';
RadioButton3.Caption:='Календарь';
RadioButton4.Caption:='Кнопка';
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if CheckBox1.Checked then Form1.ProgressBar1.Position:=ProgressBar1.Position+1;
if ProgressBar1.Position>=ProgressBar1.Max then GroupBox1.Caption:='Ну ты и тормоз!!!';
if ProgressBar1.Position>=ProgressBar1.Max then Label1.Caption:='Не тормози! Время вышло';
if ProgressBar1.Position>=ProgressBar1.Max then RadioGroup1.Visible:=False;
if ProgressBar1.Position>=ProgressBar1.Max then RadioButton1.Visible:=False;
if ProgressBar1.Position>=ProgressBar1.Max then RadioButton2.Visible:=False;
if ProgressBar1.Position>=ProgressBar1.Max then RadioButton3.Visible:=False;
if ProgressBar1.Position>=ProgressBar1.Max then RadioButton4.Visible:=False;
if ProgressBar1.Position>=ProgressBar1.Max then ProgressBar1.Visible:=False;
if ProgressBar1.Position>=ProgressBar1.Max then Button1.Visible:=False;
if ProgressBar1.Position>=ProgressBar1.Max then Button4.Visible:=False;
End;
procedure TForm1.Button3Click(Sender: TObject);
begin
Button1.Visible:=false;
Button4.Visible:=True;
Label1.Caption:='Что такое Label?';
RadioButton2.Caption:='Поле для ввода текста';
RadioButton1.Caption:='Надпись';
RadioButton3.Caption:='Окошко';
RadioButton4.Caption:='Такого не существует';
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
Button3.Visible:=False;
Label1.Caption:='Что такое Form?';
RadioButton2.Caption:='Форма для размещения елементов';
RadioButton1.Caption:='Поле для ввода текста';
RadioButton3.Caption:='Форма о программе';
RadioButton4.Caption:='Форма для ввода кода';
end;

End.

Вложение 6783

[VVM]

Vladya, набор вопросов и ответов удобнее хранить в отдельном файле или, на крайний случай, в массиве.

[Serge_Bliznykov]

1) Полностью согласен с VVM.

2) поищите, тут на форуме подобные программы обсуждались не раз и не два...
Вот, навскидку.. для затравки почитайте:
http://www.programmersforum.ru/showthread.php?t=14988
http://www.programmersforum.ru/showthread.php?t=14660
http://www.programmersforum.ru/showthread.php?t=10415
http://www.programmersforum.ru/showthread.php?t=7469

[VVM]

Вот, на скорую руку набросал. Delphi 2009.