[M.A.D.M.A.N.]

как вариант - запоминать в глобальную переменную. Событие нажатия клавиши можно перехватить:

Код:

  procedure wmkeydown(var msg: TWMKeyDown); message WM_KEYDOWN;
...
  case  msg.CharCode of
    VK_LEFT:;
    VK_RIGHT:;
...