Как в FPC получить количество свободной памяти в куче ?

Вопрос решен : GetHeapStatus.TotalFree