Доброго времени суток!

Помогите, пожалуйста, разобраться с освобождением памяти при работе программы.
Вроде бы подчищаю после всего чего можно, но все равно в диспетчере видно, что памяти потребляет программа все больше и больше.

и это довольно мелкая программка.
нет ли какой-то глобальной процедуры, которая бы высвобождала неиспользуемую память?
Из-за чего может расти потребление?

уже и боюсь смотреть, что там в диспетчере для большущего проекта, который по планам должен работать целыми сутками. :=((((


И еще... использую переменную  F:TSearchReс. И в одной программе при FindClose(F) занятость процессора моей программой прыгает до 99% и я глухо подвисаю (т.е. ни ответа, ни привета).
Пришлось вынести ее в глобальные, чтобы не так сильно росло потребление оперативки при каждом вызове прицедуры.
Самое-то интересное в том, что в других-то программах нормально работает.