Вставка кода

procedure TForm1.N5Click(Sender: TObject); //открытие тестов
begin
Form5.Visible:=False;
   n:=0;
   S:=0;
  try
  Form5.Opendialog1.InitialDir:=ExtractFilePath(ParamStr(0)) + 'Тесты\';
  Form5.Opendialog1.Filter:='Файлы теста|*.tst|';
  if Form5.OpenDialog1.Execute then
   begin
   Form5.Show;
   Form1.Visible:=False;
    pr_ot:='';
    k:=1;
    Form5.CheckListBox1.Clear;
    AssignFile(F,Form5.OpenDialog1.FileName);
    Reset(F);
    Seek(F,count);
   Read(F,Test);
    j:=Test.count_otv;
    for i:=0 to j-1 do
     begin
      Seek(F,count);
      Read(F,Test);
      if Test.pr_ot<>'' then
       pr_ot:=pr_ot+' '+Test.pr_ot;
      Form5.CheckListBox1.Items.Add(Test.otv);
      Form5.Edit1.Text:=Test.Name_v;
      inc(count);
     end;
    end;
  except
   on e:Exception do
    CloseFile(F);
  end;
  begin
Application.CreateForm(TForm5, Form5);
  end;
  end;
 
Второй код их прохождения:
procedure TForm5.Image3Click(Sender: TObject);
begin                          //распознание верного либо неверного ответа
  try
   for i:=0 to CheckListBox1.Items.Count-1 do
    begin
     if CheckListBox1.Checked[i] then
      pr_ch_ot:=pr_ch_ot+' '+IntToStr(i);
    end;
    if pr_ot[Length(pr_ot)]=' ' then
     pr_ch_ot:=pr_ch_ot+' ';
    if pr_ch_ot=pr_ot then
     begin      //верный ответ
      z:=z+1;
     end
    else
     begin      //неверный ответ
      r:=r+1;
     end;
   pr_ch_ot:='';
   CheckListBox1.Items.Clear;
   Edit1.Clear;
   Seek(F,count);
   if EOF(F)=True then
    begin
     k:=MessageDlg('Тест пройден', mtWarning, [mbOk,mbCancel] , 0);
     k:=MessageDlg ('Количество правильных ответов: '+inttostr(z)+', неправильных ответов: '+inttostr(r), mtWarning, [mbOk,mbCancel] , 0);
     count:=0;
     CloseFile (f);
     Image3.Visible:=false;
     Image2.Visible:=true;
     exit;
    end;
   Read(F,Test);
   j:=Test.count_otv;
   pr_ot:='';
   for i:=1 to j do
    begin
     Seek(F,count);
     if EOF(F)=True then
      begin
       Application.MessageBox('Тест загружен','Тесты',MB_OK);
       exit;
      end;
     Read(F,Test);
     CheckListBox1.Items.Add(Test.otv);
     if Test.pr_ot<>'' then
      pr_ot:=pr_ot+' '+Test.pr_ot;
     Edit1.Text:=Test.Name_v;
     inc(count);
    end;
  except
   on e:Exception do
  end;
  end;
 
А ещё есть код рандомного распределения вопросов:
// случайно перемешать массив
var
i, tmp, j, z: Integer; Mas: array of integer;
begin
<...>
Randomize;
for i:=0 to Length(Mas) - 1 do begin
  j:=Random(Length(Mas));
  z:=Random(Length(Mas));
  tmp:=Mas[z];
  Mas[z]:=Mas[j];
  Mas[j]:=tmp;
end; 
end;