[NumLock]

читай Return Values у GetKeyState.

Код:

  if (GetKeyState(VK_LBUTTON) and $80000000)>0 then
    Label1.Caption:='down'
  else
    Label1.Caption:='up';