[demon112]

if (get_key_states and 32 {код клавиши} <> 0) then
begin
...
end;

коды клавиш:

UP = 2;
LEFT = 4;
DOWN = 64;
RIGHT = 32;
FIRE = 256;
GAME_A = 512;
GAME_B = 1024;
GAME_C = 2048;
GAME_D = 4096;