Problem mit Freigabe von TStringList.Objects

[tomaten]

Hallo, ich möchte Objekte, die ich einer TStringList zugewiesen habe wieder freigeben. Leider wird der Destructor des entsprechenden Objekts nicht aufgerufen :

Delphi-Quellcode:

for f := 0 to Liste.Count - 1 do
    if Assigned(Liste.Objects[f]) then
        Liste.Objects[f].Free;

Hab ich da einen Denkfehler? Ich habe auch schon folgendes probiert:

Delphi-Quellcode:

for f := 0 to Liste.Count - 1 do
    if Assigned(Liste.Objects[f]) then
        TType(Liste.Objects[f]).Free;

TType = der entsprechende Klassentyp (ist ja bekannt).