[Igor]

Не проще делать так?

repeat
repeat
key:=GetKeyPressed;
Delay(20);
until key<>0;
key:=KeyToAction(key);
if (key = GA_LEFT) then MoveLeft;
if (key = GA_RIGHT) then MoveRIght;
.....
until false;