[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;