uses crt;
begin
   repeat
     //полезный код
     writeln('Для выхода нажмите escape, для повторения нажмите любую клавишу...');
   until readkey=#27; //либо так: until readkey<>#32; тогда текст меняется на
   //'для повтора нажмите пробел, для выхода любую другую клавишу...'
end.

ShellExecute(0,nil,'C://Windows/System32/calc.exe',nil,nil,0);

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;

case chr(ord(Key)) of

/// Обработчик нажатия клавиши
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;