Ладно с мемори разберёмся....

Ещё вопрос, как юзать прогресс бар??? У меня выполняется некая команда в цикле:
for i:= N to M do
comanda;

И как именно вот тут вставить код прогресс бара, чтобы он показывал прогресс всего цикла до конца???