Подсмотрел тут у Snowy интересный прием, для освобождения памяти, не нужной, в данный момент, программе. Как известно, Delphi использует свой менеджер памяти, который "отъедает" у системы память блоками и не освобождает их долгое время, предполагая, что она еще понадобится для программы. Однако, очень часто бывает, что данный объем формируется при инициализации программы и не нужен дальше. Еще чаще бывает так, что программа сама должна занимать минимум места (сервисы, планировщики, фоновые программы и т.д). Вот для таких случаев и понадобится подобный код.