Тест в Delphi, информация считывается из файла.

[ivan.tiran]

Доброго времени суток, пишу тест на Delphi. Информация загружается из файла в компонент Memo. В файле находятся как вопросы, так и ответы. Правильные ответы помечены звездочкой в конце. Помогите сделать так, чтоб при нажатии на кнопку "Следующий вопрос", при этом должна быть нажата радиокнопка, соответствующая правильному ответу, правильный ответ заносился в поле Memo3. Ниже сама программа в архиве. Спасибо.

Код:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Memo2: TMemo;
    RadioGroup1: TRadioGroup;
    Memo3: TMemo;
    BitBtn1: TBitBtn;
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
  procedure povtor;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  z,d,j,i,a:integer;
  LineNo : integer;
  Form1: TForm1;
  some:array[0..9000] of integer;//массив для длин строк
  Rus: array[0..9000, 0..9000] of string;//массив, в котором поэлементно хранятся строки
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  dir:string;
begin
  getdir(0,dir);//переменной dir присваивается дирректория файла
  dir:=dir+'/test.txt';//переменной dir присваивается конечный путь к файлу
  Memo1.Lines.LoadFromFile(dir);//В поле Memo1 загружаются данные из файла
  a:=Memo1.Lines.Count;//в переменную a заносится количество строк в файле
  for i:=0 to a-1 do
  begin
    some[i]:=length(Memo1.Lines[i]);//запись длин каждой строки
    for  j:=0 to some[i]-1 do
      Rus[i,j]:=copy(Memo1.Lines[i],j,length(Memo1.Lines[i]));// копирование строк поэлементно в массив
  end;

  Memo2.Text:=Rus[0,0];//В поле Мемо2 заносится первая строка из файла
  i:=0;
  j:=0;
  povtor;
  d:=1;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  IF d <(a/5) THEN BEGIN
    i:=i+1;
    Memo2.Text:=Rus[i,j];
    povtor;
    d:=d+1;
  END;
end;

procedure TForm1.povtor;
var
  k: integer;
begin
  z:=i;
  k := i mod 5;
  repeat
  k := i mod 5;
  RadioGroup1.Items[k]:=Rus[i+1,j];
  if (Rus[i+1,some[i+1]-1]='.*') or (Rus[i+1,some[i+1]-1]=';*') then
  begin
    RadioGroup1.Items[k]:=copy(RadioGroup1.Items[k],j,pos('*',RadioGroup1.Items[k])-1);//если выполняются верхние условия, то Радио-кнопке присваивается имя до звездочки (звездочка - это индикатор правильного ответа)
    Memo3.Text:=Memo3.Text+RadioGroup1.Items[k];
  end;
  i:=i+1;
  until i=(z+4);
end;

end.