[NumLock]

Чтобы при освобождении памяти не заморачиваться с выделенным объемом придется хранить таблицу: начальный адрес, размер.

Код:

procedure GetMem(var P: Pointer; Size: Integer);
procedure FreeMem(var P: Pointer);