[mak-karpov]

Правильней:

Код:

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

Несовпадают типы : Word и Char