NumLock, Спасибо! вместо условия
Код:
if ((KeyStroke and (1 shl 30))<>0) then
вставил
Код:
if (KeyStroke and $80000000 <> 0) then
и все работает как надо...
ps. я так понял условие
Код:
if ((KeyStroke and (1 shl 30))<>0) then
отвечало за нажатие клавиши (KEY DOWN)??? я прав?