Словить нажатие клавиш

[carliker]

RegisterHotKey у меня не заработало когда запущена игра.
Я делаю так:

if getasynckeystate($70)<>0 then
    begin
//действие
    end

где $70 - клавиша F1

P.S.: Все это писать в TForm1.Timer1Timer (в таймере я ставил 1 секунду, чтобы избежать двойного нажатия). Для сочетания клавиш думаю можно использовать:

if getasynckeystate($70)<>0 and getasynckeystate($71)<>0

сам не пробывал, просто предположил что сработает