[beZ_probleM]

вот код :

p:=8;
k:=formAddString('бла бла бла__'+(z+a)+chr(10)+'Осталось пунктов__'+p);
repeat
           i:=getKeyClicked;
           tmp:=getClickedCommand;
           if i<>KE_NONE then begin
           if i=KE_KEY1 then 
              if p>0 then 
                 begin
                   a:=a+1;
                   p:=p-1;
                 end;
           if i=KE_KEY3 then 
              if a>0 then 
                 begin
                   a:=a-1;
                   p:=p+1;
                 end;
            formRemove(k);     
            k:=formAddString('бла бла бла__'+(z+a)+chr(10)+'Осталось пунктов__'+p);     
           end;
           if tmp=To_menu then begin ok:=true; menu:=true; end;
           if tmp=next then 
              begin
                ok:=true;
                z:=z+a;
              end;
         delay(100);
         until ok=true;

Почему при нажатии клавишы 1 или 3 не происходит (наверно) ничего?
Должно вить прибавлятсо значение к переменной "а"...
или getKeyClicked и getClickedCommand нельзя использовать вместе?