[NumLock]

Код:

var
  LHeap: array [0..1023] of Byte;