Тестирование на языке программирования Delphi.

[megaskull]

Здравствуйте. Скачал проект теста в delphi и не могу разобраться с чужим кодом. Если Вам не сложно помогите пожалуйста понять как программа загружает вопросы и ответы, а так же понять как сделать эти самые вопросы и ответы рандомными. Заранее огромное спасибо.

unit Unit2;

interface

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

type
  TForm2 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    RadioGroup1: TRadioGroup;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure inic;
    procedure loadquestion;
    procedure showresults;
    procedure Button1Click(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    ball, count: integer;
  end;

var
  Form2: TForm2;
  num, answ, strpos: integer;
  q: tstringlist;
  alplen: integer;

const
  alp = 'абвгдеёжзийклмнопрстуфхцчшщъыьэюя' +
    'АБВГДЕЁЖЗИЙКЛМНПОРСТУФХЦЧШЩЪЫЬЭЮЯ' + 'abcdefghijklmnopqrstuvwxyz' +
    'ABCDEFGHIJKLMNOPQRSTUVWXYZ' + '0123456789' + '(){}-+=!?<>,.":;';
  key = 'super-key';

implementation

uses Unit1, Unit3;
{$R *.dfm}

procedure TForm2.FormCreate(Sender: TObject);
begin
  alplen := length(alp);
  q := tstringlist.Create;
  q.LoadFromFile(extractfilepath(paramstr(0)) + 'test1.txt');
  inic;
end;

procedure TForm2.FormDestroy(Sender: TObject);
begin
  q.destroy;
end;

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Form1.Close;
end;

procedure TForm2.Button1Click(Sender: TObject);
begin
  if RadioGroup1.ItemIndex = -1 then
    exit;
  if RadioGroup1.ItemIndex + 1 = answ then
    inc(ball);
  inc(num);
  if num > count then
    showresults
  else
    loadquestion;
end;

procedure TForm2.showresults;
begin
  Form3.Visible := true;
  Form2.Visible := false;
end;

procedure TForm2.FormShow(Sender: TObject);
begin
  inic;
end;

procedure TForm2.loadquestion;
var
  i, k: integer;
begin
  Label1.Caption := 'Вопрос № ' + IntToStr(num) + ' из ' + q[0];
  RadioGroup1.Items.Clear;
  RadioGroup1.Caption := q[strpos];
  k := strtoint(q[strpos + 1]);
  answ := strtoint(q[strpos + 2]);
  for i := 1 to k do
    RadioGroup1.Items.Add(q[strpos + 2 + i]);
  inc(strpos, 3 + k);
end;

procedure TForm2.inic;
begin
  ball := 0;
  num := 1;
  strpos := 1;
  count := strtoint(q[0]);
  loadquestion;
end;

end.

Структура файла вопрос\ответ:
3 \\количество вопросов
Назовите столицу Монгольской империи при Чингизхане: \\вопрос
5 \\количество ответов
2 \\правильный ответ
Сарай
Каракорум
Отрар
Пекин
Сыгнак \\ответы

[Utkin]

procedure TForm2.FormCreate(Sender: TObject);
begin
  alplen := length(alp);
  q := tstringlist.Create;
  q.LoadFromFile(extractfilepath(paramstr(0)) + 'test1.txt');  // Загрузка вопросов в q
  inic;
end;

Label1.Caption := 'Вопрос № ' + IntToStr(num) + ' из ' + q[0]; // q[0] - количество вопросов в тесте

RadioGroup1.Caption := q[strpos]; // strpos - указатель на вопрос

Вообще механика работы здесь описана:

RadioGroup1.Caption := q[strpos];
  k := strtoint(q[strpos + 1]);
  answ := strtoint(q[strpos + 2]);
  for i := 1 to k do
    RadioGroup1.Items.Add(q[strpos + 2 + i]);
  inc(strpos, 3 + k);

к - количество вариантов ответа
answ - правильный ответ