Нажатие правильного ответа в Тесте

[bmb_66]

Приветствую всех на форуме.
Не смог довести до идеальности код теста может кто поможет. Заранее буду благодарен.

На форме расположени 30 CheckBox-ов и 6 SpeedButton которие пронумеровани 1...6. (С остальнимт компоненти всё ясно).
При создании формы (или нажатии кнопки) на форму появляется CheckBox1 со случайным в Caption числом и соответственно вопросом в Image1 (на котором задан вопрос и перечислени варианти ответов).
Вот тепер тема:
Помогите с обрабоычиком когда. Когда правильныи ответ третии ответ, нажатие на SpeedButton.Caption:=3 давало собитие появление CheckBox2 и что бы вся процедура прошла с начального варианта. (С остальным я сам разберус).

Вот и набросок кода.

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    CheckBox5: TCheckBox;
    CheckBox6: TCheckBox;
    CheckBox7: TCheckBox;
    CheckBox8: TCheckBox;
    CheckBox9: TCheckBox;
    CheckBox10: TCheckBox;
    CheckBox11: TCheckBox;
    CheckBox12: TCheckBox;
    CheckBox13: TCheckBox;
    CheckBox14: TCheckBox;
    CheckBox15: TCheckBox;
    CheckBox16: TCheckBox;
    CheckBox17: TCheckBox;
    CheckBox18: TCheckBox;
    CheckBox19: TCheckBox;
    CheckBox20: TCheckBox;
    CheckBox21: TCheckBox;
    CheckBox22: TCheckBox;
    CheckBox23: TCheckBox;
    CheckBox24: TCheckBox;
    CheckBox25: TCheckBox;
    CheckBox26: TCheckBox;
    CheckBox27: TCheckBox;
    CheckBox28: TCheckBox;
    CheckBox29: TCheckBox;
    CheckBox30: TCheckBox;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    Label1: TLabel;
    Label2: TLabel;
    Image1: TImage;
    BitBtn1: TBitBtn;
    Edit1: TEdit;
    Label3: TLabel;
    ComboBox1: TComboBox;
    Label4: TLabel;
    BitBtn2: TBitBtn;
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
var
RandSeed:Longint;
begin
RandSeed:=Random(1084);
CheckBox1.Caption:=IntToStr(RandSeed);
Image1.Visible:= True;
CheckBox1.Visible:=True;
 begin
   if CheckBox1.Visible=True then
   begin
   Image1.Picture.LoadFromFile('Martest\'+(IntToStr(RandSeed))+'.jpg');
   end;
 end;
BitBtn1.Visible:=False;
Edit1.Visible:=False;
Label3.Visible:=False;
Label4.Visible:=False;
BitBtn2.Visible:=True;
ComboBox1.Visible:=False;
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
 CheckBox1.Visible := False;
............
  end;

 end;
procedure TForm1.FormCreate(Sender: TObject);
begin
  CheckBox1.Visible := False;
..............
 end;

end.

P.S. Извините за корявыи русскии, вшколе плохо учился.