Доброго дня всем участникам форума! Может кто знает почему в мой код счетчика нажиманий не работает?:

procedure TForm1.Button1Click(Sender: TObject);
var r:byte;
begin
if Button1.Caption='Button1' then r:=0;
case r of
0,1:begin Button1.Caption:='yes'+inttostr(r);r:=r+1;end;
2:begin Button1.Caption:='no'+inttostr(r);r:=1;end;
end;//case
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Button1.Caption:='Button1';
end;

Надо чтобы в первый раз нажав получить - yes0; второй - yes1; третий - no3; в четвертый = как второй, пятый=как третий и т.д.
Почему счетчик не срабатывает?

Пробовал вместо byte использовать integer все ровно не работает. Может кто знает в чем дело? Спасибо, заранее всем!

r нужно сделать глобальной переменной, локальные создаются вместе с выполнением процедуры, и не ининициализированы/т.е. могут иметь любое значение.

Благодарю. Все работает.