[NumLock]

Код:

var
  i: DWORD;
  i1, i2, i3, i4: Byte;
begin
  i:=$EF7D1D99; // 111011 110111 110100 011101 10011001
  i1:=(i shr 8) and $3f;
  i2:=(i shr 14) and $3f;
  i3:=(i shr 20) and $3f;
  i4:=(i shr 26) and $3f;
{
1D
34
37
3B
}
end;