1ball:=Ball + 1; RadioGroup8.ItemIndex=- 1Showmessage ( Потрібно вібрато відповідь ) elseRadioGroup8.ItemIndex=3ball:=Ball + 1; RadioGroup9.ItemIndex=- 1Showmessage ( Потрібно вібрато відповідь ) elseRadioGroup9.ItemIndex=1ball:=Ball + 1; RadioGroup10.ItemIndex=- 1Showmessage ( Потрібно вібрато відповідь ) elseRadioGroup10.ItemIndex=1ball:=Ball + 1; RadioGroup11.ItemIndex=- 1Showmessage ( Потрібно вібрато відповідь ) elseRadioGroup11.ItemIndex=0ball:=Ball + 1; RadioGroup12.ItemIndex=- 1Showmessage ( Потрібно вібрато відповідь ) elseRadioGroup12.ItemIndex=2ball:=Ball + 1; ( Ваш результат + IntToStr (Ball));.
