为什么这样不行？请大侠们指点(100分)

我从TListBox继承的一个组件，用于显示图片缩略图的listbox。
我在增加ITEM时，将Image通过AddObject与Item相关联起来了，
但在组件的析构函数中用Items->clear()却出错，has no parent window.
当把析构函数的items->clear()删除后就没有此错误，我想问，如何在组件
销毁时释放其资源？！谢谢

for i:=0 to items.count -1 do
Tlistbox.items.objectof(objectname).free;