I am adding some TObject descendants to a TStringList, for example by calling AddObject. I would like them to be freed when I free the list object. Is there any way to achieve this?

Edit
Report