Событие при нажатии на клавиатуру

[BuT@JL]

Вот моя проблема

Код:

begin
if GetAsyncKeyState(ord(13))<>0 then begin
inc(i);
label1.Caption:=inttostr(i);
end;

Если я нажму на клавишу Enter 1 раз, то переменная i увеличится один раз на единицу, а если я нажму и буду удерживать Enter, то I будет увеличиваться постоянно пока клавиша нажата. Как мне это исправить?
То есть если я удерживаю enter, то i увеличится на единицу только один раз.

Кто знает помогите пожалуйста. Заранее спасибо.

[NuMeR]

begin
if (GetAsyncKeyState(ord(13))<>0)and(p =1) then begin
inc(i);
label1.Caption:=inttostr(i);
p:=0;
end
else
p:=1;

[BuT@JL]

NuMeR Спасибо, но это не помогло, все так же... люди ну кто нибудь поможет

[Вавел из ГМТУ]

А где этот код сидит?
Помоему надо юзать КейАп или КейДовн или както так называется...

[BuT@JL]

Вавел из ГМТУ в том то и дело что там мне не нужно, мне нужно в таймере, поэтому я и использую GetAsyncKeyState. Кто нибудь знает функцию набодобие GetAsyncKeyState, что бы отлавливала событие нажатия определенной клавиши, и работала в таймере?

[Neeter]

Почему первый вариант не работает?
Вы объявили переменную p в private формы, а не в самой процедуре обработки таймера?
И присвойте в onCreate ей единицу.

[vovk]

тут мне кажется нужно почти как NuMeR написал, но немного подругому

begin
if (GetAsyncKeyState(ord(13))<>0) then begin
if (p =1) then begin
inc(i);
label1.Caption:=inttostr(i);
p:=0;
end;
end
else
p:=1;
end;

или чтоб понятнее

begin
  if (GetAsyncKeyState(ord(13))<>0) and (p =1) then
     begin
        inc(i);
        label1.Caption:=inttostr(i);
        p:=0;
     end 
 else
   if (GetAsyncKeyState(ord(13))=0) then  p:=1;
end;

[NuMeR]

BuT@JL, в начале программы, не в этой процедуре присвойте p:=1;

[BuT@JL]

Вооо, спасибо вам ребят, помогло.