Delphi 7 Почему не работает счетчик r1?

If key=#13 then begin
case ListBox2.ItemIndex of
0: N2:= 2;
1: N2:= 1;
2: N2:= 3;
3: N2:= 0;
end;
if N1=N2 then Label4.Caption:='Правильно'
Else Label4.Caption:= 'Ошибка';
R:=R+1;
If R=5 then ShowMessage(‘ Тест окончен! ‘ );
end;