[PaHaNjkee]

Сообщение от Страдалецъ

А если так?

Код:

 ok := 0;
        if sRadioButton1.Checked then ok:=ok+1;
        if sRadioButton6.Checked then ok:=ok+1;
        if sRadioButton11.Checked then ok:=ok+1;
        if sRadioButton16.Checked then ok:=ok+1;
        if sRadioButton22.Checked then ok:=ok+1;
    if (ok=0) or (ok=1) then sLabelFX8.Caption:='2';
    if ok=2 then sLabelFX8.Caption:='3';
    if ok=3 then sLabelFX8.Caption:='4';
    if ok=4 then sLabelFX8.Caption:='4';
    if ok=5 then sLabelFX8.Caption:='5';
    if ok < 2 then sLabelFX6.Caption:='Вы не сдали тест!' else
    sLabelFX6.Caption:='Вы сдали тест!';

Спасибо, работает!