释放内存的问题？

Question

大哥：
 我这段代码能把数组中的所有内存释放掉吗？
全局变量
Arry:array[1..4,1..10]of TList;
var
MyList: TList; for i:=1 to 4 do
 begin
  for j:=1 to 10 do
   begin
    MyList:=Arry[i,j];
    if MyList=nil then
    continue;
    for k:=0 to MyList.Count-1 do
     dispose(MyList.Items[k]);
     MyList.Destroy;
     Arry[i,j]:=nil;
   end;
 end;

Answer 1

dispose(MyList.Items[k]);
=>
if MyList.Items[k] <> nil then dispose(MyList.Items[k]);MyList.Item[k]必须使用New分配的内存