C>>И как тут отловить события WM_KEYDOWN, WM_KEYUP?

А>смотреть на старший бит lParam. 0 — нажатие, 1 — отпускание.

За GetAsyncKeyState пасиба.

А вот про старший бит чето не совсем понял
lparam: word. Т.е. старший бит в двоичном представлении 1000000000000000, что в десятичном 32768.
Вычисляю старший бит (lparam and 32768):

if (wparam =vk_f10) then
       messageboxa(0,'key f10',pchar(inttostr(((lparam and 32768)))),0);

Почемуто оба раза кажет что старший бит равен нулю.