Помогите пожалуйста сделать ТЕСТ в ВОRLАND DЕLРHI.

Есть у меня программка на delphi вот она
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, DBTables, StdCtrls, Buttons, DBCtrls, ExtCtrls,inifiles,
XPMan;

type
TForm1 = class(TForm)
DBMemo1: TDBMemo;
RadioGroup1: TRadioGroup;
DBText1: TDBText;
Label1: TLabel;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
Table1: TTable;
DataSource1: TDataSource;
Button1: TButton;
XPManifest1: TXPManifest;
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
Ini1: TIniFile;
nametab: String;
implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
Table1.Next;
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
Table1.Prior;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Table1.DatabaseName := Application.GetNamePath;
Ini1 := TIniFile.Create(ExtractFilePath(Application.ExeName)+'DataSet.ini');
Table1.TableName := Ini1.ReadString('Name','Table','');
Ini1.Destroy;
Table1.Active := True;
Table1.Last;
RadioGroup1.Controls[0].Visible := false;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if Table1.FieldValues['Otvet'] = RadioGroup1.ItemIndex then
MessageBox(Handle,'Правильно','Тест',MB_ICONINFORMATION);
end;

end.

Полные исходники могу прислать на e-mail

Что за тест ?

Подробно такую работу. . описать ты чо :) лутше скажы на чом стаиш чо зделать то не можеш начни сам работу а там уже какнить памогут :)

ну.. . описываешь заранее всякие кнопки, флажки, надписи и прочее, только Визибл: =Фолс
затем ставишь переменную-счётчик
всю инфу заносишь в файл
ставишь процедуру типа ЛоадТест (конст намбер: интежер) ; ,которая читает в файле все названия и положения и переименовывает и переставляет соответствующим образом кнопки
обрабатываешь события на кнопки (используя в них значение счётчика)
ну и всё