注意：Tlist内存释放的方法问题

var
  list:tlist;
  myobj:tmyobj;
  i:integer;
begin
  for i:=0 to 10 do //循环释放
  begin
    myobj:=tmyobj.create;
    list.add(myobj)
  end;
  list.free //本以为将11个myobj全释放但是没有  //还得用如下方法释放才能释放干净
  //for i:=0 to 10 do
  //    tmyobj(list.item[i]).free
  //list.free

end;有没有好的方法释放请大虾指教