[di_jus]

а какая тут ошыбка ?

Код:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
 begin
  if key=('w') then
  nx:=nx+1;
 end;