Delphi: как узнать сколько места в куче выделено под некий указатель?

http://www.rsdn.ru/article/Delphi/memmanager.xml
Цитата:
"например, если мы выделяем 99 байт памяти, то полученный размер блока будет равен 104 байтам, из них 1 байт уйдет на выравнивание и 4 байта на значение размера и флаги"