TList能释放所有类型的对象吗？该怎么解决

TList能释放所有类型的对象吗？
var
    ObjectList:   TList;   存放不同类型的对象

procedure   freeobjectlist;
begin
    for   i   :=   0   to   ObjectList.Count   -   1   do
    begin
        TObject(ObjectList[i]).Free;
    end;
end;
能释放所有对象吗？




[解决办法]
不知道，可能delphi的架构师们认为没必要让你继续往下看了，因为任何对象的释放都会调用tobject的析构函数，而tobject是所谓的delphi原子，他的析构函数没有代码。