[Pegacy]

Всем привет! Необходимо реализовать чтобы действие выполнялось только когда пользователь нажимает и держит клавишу клавиатуры, как только он отпускает руку, значение возвращается в исходное, например как WSAD в играх. Я делфи начал изучать совсем недавно, буду рад если покажите на примере.

[Alegun]

Нужно кинуть на форму ТLabel

Код:

var
 i: integer = 0;
...

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if Key = 87 { W } then inc(i);
Label1.Caption:= IntToStr(i);
end;

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if Key = 87 { W } then i:= 0;
Label1.Caption:= IntToStr(i);
end;