[slavnayaalb]

Код:

procedure TForm1.OtvetgotovClick(Sender: TObject);
var s:string;
begin
if radiogroup1.ItemIndex =-1 then
begin
showmessage('Ничего не выбрано');
exit;
end;
s:=radiogroup1.Items.Strings[radiogroup1.ItemIndex];

// for i:=1 to max_otvetov-1 do
//  begin    //n 200
//   if otvet.Text=vse_voprosy[nomer].otvety[i] then
   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
   s:=((vse_voprosy/tek_vopros)*100);
   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;