[Mr_OKU!]

Код:

s:=radiogroup1.Items.Strings[radiogroup1.ItemIndex];
   if s=vse_voprosy[nomer].otvet then
     begin    //n 201
      messagedlg('Ответ правильный',mtconfirmation,[mbok],0);
      otvety_na_voprosy[tek_vopros]:=true;
      tek_vopros:=tek_vopros+1;

      otvet.SetFocus;
      if tek_vopros=voprosov_v_teste+1 then
  begin  //n 202
   messagedlg('Вы закончили тест по предмету ОС ваша оценка '+inttostr(form1.resultat),mtconfirmation,[mbok],0);
   student.resultat:=inttostr(form1.resultat);
   form1.zapis_v_data_base;
   image1.Destroy;
   close;
  end;  //k 202
  form1.vivod_voprosa;
      exit;
     end;   // k 201
//  end;    // k 200
 if not(otvety_na_voprosy[tek_vopros]) then
  begin   //n 203
   messagedlg('Ответ неправильный',mtconfirmation,[mbok],0);
   otvety_na_voprosy[tek_vopros]:=false;
   tek_vopros:=tek_vopros+1;

   if tek_vopros=voprosov_v_teste+1 then
  begin    //n 204
   messagedlg('Вы закончили тест по предмету ОС ваша оценка '+inttostr(form1.resultat),mtconfirmation,[mbok],0);
    student.resultat:=inttostr(form1.resultat);
    form1.zapis_v_data_base;
    close;
  end;     // k 204
  form1.vivod_voprosa;
  end; 

MAD: Пользуемся тегами для оформления кода!

Тут после завершении тестирования программа завершает работу. А как сделать что бы программа не завершала работу а просто закрывался файл с вопросами?