清空不到dynamic array!!!!

[199911]

Program CodeTesting;

Uses Crt ;

Type SortArray = array of record
                            ID : string[6];
                            Info : string[30];
                          end;

Procedure MethodOne;
Var
  SortArray1 : SortArray ;

begin
  SetLength(SortArray1 , 2000);
 .......
  SetLength(SortArray1 , 0);
end;


我的程或 在執行這個 Procedure 之前 在工作管理員看用了540Kb
執行間用了616Kb
執行完 還是用了620Kb!!!
這是不是代表我清空不到那個array?
我以後還會再call 不同的 dynamic array
那會不會佔用更多記憶體令程式運行不到?
我是用Free Pascal 的
謝謝....