Процедура кнопки

[Иоанн IV Грозный]

Помогите,у меня есть небольшой тест из 3 вопросов.Нужно выдать результат в Label4 по сумме баллов.У меня Lazarus сразу пишет последнюю строчку.Где я ошибся?

procedure TForm1.Button1Click(Sender: TObject);
Var x,sum:integer;
begin
sum:=0;
If RadioButton2.Checked=True then sum:=sum+1;
If CheckBox1.Checked=True then sum:=sum+1;
If CheckBox3.Checked=True then sum:=sum+1;
x:=strtoint(Edit1.Text);
If x=1808 then sum:=sum+1;
If sum=1 or sum=0 then Label4.Caption:='Плохо...Вы ответили на 1(или 0)вопросов';
If sum=2 then Label4.Caption:='Удовлетворительно.Вы ответили на 2 балла из 4';
If sum=3 then Label4.Caption:='Хорошо.Вы ответили на 3 балла из 4';
If sum=4 then Label4.Caption:='Отлично!Вы ответили на все вопросы';
end;

[Иоанн IV Грозный]

все работает!