[ViNT]

Лучше использовать такой цикл опроса клавиатуры:

var
 Act:integer;

begin
 repeat
  Act:=KeyToAction(GetKeyPressed);
  if Act=GA_UP then
   jump
  else if Act=GA_LEFT then
   GoLeft
  else if ...
  Delay(200);
 until ...