case chr(ord(Key)) of
   'W': move:=move+32;
   'S': ...
   'D': ...
   'A': ...

/// Обработчик нажатия клавиши
procedure KeyDown(Key: integer);
begin
    case Key of
vk_Left:  kLeftKey := True;
vk_Right: kRightKey := True;
vk_Space: if kSpaceKey=2 then kSpaceKey := 1;
    end;
end;

/// Обработчик отжатия клавиши
procedure KeyUp(Key: integer);
begin
    case Key of
vk_Left:  kLeftKey := False;
vk_Right: kRightKey := False;
vk_Space: kSpaceKey := 2;
    end;
end;

/// Обработчик нажатия символьной клавиши
procedure KeyPress(Key: char);
begin
    if (Key in ['G','П','g','п']) and EndOfGame then
    begin
      NewGame.Visible := False;
      EndOfGame := False;
      t.Start;
      CreateObjects;
      kSpaceKey := 2;
      kLeftKey := False;
      kRightKey := False;
    end;
end;

case chr(ord(Key)) of

case chr(ord(Key)) of

case Key of

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
   case Key of
   'w': showmessage('w');
   's': showmessage('s');
   end;
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
   case Key of
   ord('W'): showmessage('кнопка [w]'); //именно ord('W'), а не ord('w')
   vk_right: showmessage('стрелка вправо');
   //vk_right стандартная константа, соответствующая виртуальному коду клавиши "курсор вправо"
   $41: showmessage('кнопка [a]');
   //$41 это то, что возвращает ord('A'), т.е. соответствует виртуальному коду кнопки [a/ф]
   end;
end;