type
tbuf = array [0..1999] of byte;
pbuf = ^tbuf;
...
getmem(buf, 2000);
...
freemem(buf, 2000);

type
pbuf = ^TidBytes; //динамический массив байт

...
new(buf);
...
dispose(buf);