Результат теста выходит неправильно - Delphi

[Nassylbekova]

мой тест.rar


unit Unit9;

interface

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

type
TForm9 = class(TForm)
ScrollBox2: TScrollBox;
RadioGroup1: TRadioGroup;
RadioGroup2: TRadioGroup;
RadioGroup3: TRadioGroup;
RadioGroup4: TRadioGroup;
RadioGroup5: TRadioGroup;
RadioGroup6: TRadioGroup;
RadioGroup7: TRadioGroup;
RadioGroup8: TRadioGroup;
RadioGroup9: TRadioGroup;
RadioGroup10: TRadioGroup;
RadioGroup11: TRadioGroup;
RadioGroup12: TRadioGroup;
RadioGroup13: TRadioGroup;
RadioGroup14: TRadioGroup;
RadioGroup15: TRadioGroup;
RadioGroup16: TRadioGroup;
RadioGroup17: TRadioGroup;
RadioGroup18: TRadioGroup;
RadioGroup19: TRadioGroup;
RadioGroup21: TRadioGroup;
RadioGroup23: TRadioGroup;
RadioGroup24: TRadioGroup;
RadioGroup25: TRadioGroup;
RadioGroup26: TRadioGroup;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
Label1: TLabel;
Label2: TLabel;
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;


var
Form9: TForm9;
ball:integer;
type answers=array[1..24,0..3] of byte;
const otv:answers=((0,0,1,0),(0,0,1,0),(1 ,0,0,0),(0,1,0,0),(0,0,0,1),(0,0,0, 1),(0,0,0,1),(1,0,0,0),(0,0,1,0),(0 ,0,1,0),(1,0,0,0),(0,0,0,1),(0,1,0, 0),(0,1,0,0),(0,0,1,0),(0,0,0,1),(0 ,1,0,0),(0,0,1,0),(0,1,0,0),(0,0,0, 1),(0,0,1,0),(0,0,1,0),(0,0,0,1),(0 ,0,1,0));
implementation

uses Unit8;

{$R *.dfm}

procedure TForm9.BitBtn1Click(Sender: TObject);
begin
ball:=otv[1,radiogroup1.itemIndex]+
otv[2,radiogroup2.itemIndex]+
otv[3,radiogroup3.itemIndex]+
otv[4,radiogroup4.itemIndex]+
otv[5,radiogroup5.itemIndex]+
otv[6,radiogroup6.itemIndex]+
otv[7,radiogroup7.itemIndex]+
otv[8,radiogroup8.itemIndex]+
otv[9,radiogroup9.itemIndex]+
otv[10,radiogroup10.itemIndex]+
otv[11,radiogroup11.itemIndex]+
otv[12,radiogroup12.itemIndex]+
otv[13,radiogroup13.itemIndex]+
otv[14,radiogroup14.itemIndex]+
otv[15,radiogroup15.itemIndex]+
otv[16,radiogroup16.itemIndex]+
otv[17,radiogroup17.itemIndex]+
otv[18,radiogroup18.itemIndex]+
otv[19,radiogroup21.itemIndex]+
otv[20,radiogroup19.itemIndex]+
otv[21,radiogroup23.itemIndex]+
otv[22,radiogroup24.itemIndex]+
otv[23,radiogroup25.itemIndex]+
otv[24,radiogroup26.itemIndex];

Label1.Caption:='Ваш результат '+IntToStr(ball)+' из 24 ';
if ball<10
then Label2.Caption:='Вы не допускаетесь к работе'
else
if (ball<=15)
then Label2.Caption:='Удовлетворительно! '
else
if (ball<=19)
then
Label2.Caption:='Хорошо!'
else
if (ball>=25)
then Label2.Caption:='Отлично!'

end;

procedure TForm9.BitBtn2Click(Sender: TObject);
begin
formtest.show;
end;

end.


При нажатии на кнопку "Готово!" , результат теста выходит неправильно, где я могла допустить ошибку?

[evg_m]

а что ответит программа если пользователь наберет 20..24 баллов?

[Stanislav]

Сообщение от evg_m

а что ответит программа если пользователь наберет 20..24 баллов?

промолчит