Для проверки нажатости:
GetKeyState(VirtualKeyCode:word):boolean;
Определить константы для каждой клавиши:
ZXK_1=$f701; // старший байт порта FE и маска
Можно сделать константу и для эникей.
И ещё GetVirtualKeyCode:word, для удобства написания кода выбора игроком кнопок управления. Он вернёт код нажатой сейчас клавиши, в готовом формате для GetKeyState.