Genau das sollte funktionieren. Dafür ist ja Veerbung und Polymorphie da.
btw: Die Methode free ist von TObject. Du kannst also auch auf TObject casten und free aufrufen.
Probier vielleicht mal das casten mit as:
Delphi-Quellcode:
(ListemitObjekten.Items[i] as T3DObj).Free;
//oder
[s](ListemitObjekten.Items[i] as TObject).Free; [/s]
Das könnte evtl. die Fehlersuche erleichtern.
Edit: As TObject ist natürlich quatsch, sorry.
Dann doch eher:
Delphi-Quellcode:
TObject(ListemitObjekten.Items[i]).Free;
//oder alles zusammen
(TObject(ListemitObjekten.Items[i]) as T3DObj).Free;
Und was heißt: "es funktioniert nicht"?