schau dir mal die Hilfe zu GetAsyncKeyState an. Da steht auch wie die prüfst ob eine Taste gedrückt ist oder nicht.
Zitat:
...If the most significant bit is set, the key is down,...
daraus folgt
Delphi-Quellcode:
if (GetAsyncKeyState(VK_MENU) and 1 <> 0) then
ShowMessage('Key is down')
else
ShowMessage('Key is up');