Почему Dispose не освобождает память?

[DeLorean]

Доброго времени суток.
Я всегда считал, что процедура Dispose особождает выделенную подпрограммой New память для какой-то переменной. Но тут столкнулся с такой проблемой, что по какой-то непонятной мне причине она этого не делает. Вот простой пример:

const n = 100000;

var
x: array[1..n] of ^Integer;
i: Integer;

begin
for i := 1 to n do
begin
x[i] := nil;
New(x[i]);
end;
for i := 1 to n do
begin
Dispose(x[i]);
x[i] := nil;
end;
readln;
end.

Если посмотреть в диспетчер задач, до начала первого цикла программа занимает 2508 Кб оперативной памяти. После его выполнения она начинает использовать 4468 Кб. Внутри тела второго цикла память для всех элементов массива должна освободиться процедурой Dispose. Но после цикла программа продолжает занимать 4468 Кб памяти.

Насколько я понимаю, она её освобождает, но для дальнейшего использования этой же программой. Если кто-нибудь знает, как сделать, чтоб память освобождалась совсем, поделитесь пожалуйста.

Заранее спасибо за ответы.

[alexBlack]

Dispose, также как и New использует вызовы MemoryManager, который управляет распределением блоков памяти в программах на Delphi. С точки зрения программы после dispose память освобождена. Когда MemoryManager вернет ее Windows это его дело. Так сделано для оптимизации управления памятью.

[DeLorean]

Да, теперь ясно. Благодарю за ответ

[Virtson]

x[i] := nil; это лишнее ..
особенно второй

[Serge_Bliznykov]

Virtson,

x[i] := nil; это лишнее ..
особенно второй

ну, если это полный текст, то, да, а в реальной жизни, часто очень даже не лишний.
Почему то Pascal (впрочем, как и Дельфи) при освобождении переменной не присвает ей NIL :-(
в дельфи даже ввели специальную процедуру:
FreeAndNil( )

попробуйте вот такую вот бредятину выполнить:

var ss:^string;
begin
  ss := nil;
  New(ss);
  ss^ := 'New String!';
  writeLn(ss^);
  Dispose(ss);
  writeLn(ss^);
end.