Простой тест с выводом результата сразу после ответа на вопрос

[demiancz]

Здравствуйте. Пытаюсь сделать тест в котором бы после того как пользователь нажимает на кнопку "Ответить" сразу выводится сообщение правильно ли он ответил или нет. Одновременно осуществляется подсчет правильных и не правильных ответов, для вывода их в итоговой форме.

Вот фрагмент кода где возникает ошибка

procedure TMainForm.UnsverButtonClick(Sender: TObject);
begin
//первый вопрос
If t=1 then
//здесь вписываем нужный радиобаттон, который отвечает за правильный вариант вопроса
If Variant1.Checked=true then
right:=right+1;
messagebox(handle,' Вы ответили правильно!','Внимание!',0)
else
wrong:=wrong+1;
messagebox(handle,'Вы ответили НЕ правильно!','Внимание!',0);
//второй вопрос
..........
end;

Ошибки такие:
[Error] EIASNet.pas(117): 'END' expected but 'ELSE' found
[Error] EIASNet.pas(121): ';' expected but 'IF' found
[Error] EIASNet.pas(123): Undeclared identifier: 'Variant4'
[Error] EIASNet.pas(140): '.' expected but ';' found
[Fatal Error] TestEIAS.dpr(6): Could not compile used unit 'EIASNet.pas'

Я понимаю что ошибка при добавлении right:=right+1; и wrong:=wrong+1; Но не пойму как мне по другому реализовать подсчет правильных и не правильных ответов.

[Leo08]

Ты забыл про программные скобки внутри условного оператора

procedure TMainForm.UnsverButtonClick(Sender: TObject);
begin
//первый вопрос
If t=1 then
//здесь вписываем нужный радиобаттон, который отвечает за правильный вариант вопроса
If Variant1.Checked=true then
begin
right:=right+1;
messagebox(handle,' Вы ответили правильно!','Внимание!',0);
end
else
begin
wrong:=wrong+1;
messagebox(handle,'Вы ответили НЕ правильно!','Внимание!',0);
end;
//второй вопрос
..........
end;

[demiancz]

Благодарю!!!!