Rekursives Freigeben einer TStringList // Compilerfehler

[Caps]

Zitat von Uwe Raabe:

Das geht auch einfacher:

Delphi-Quellcode:

destructor TStringTree.Destroy;
var
  i: Integer;
begin
  for i:=0 to Count-1 do begin
    Objects [i].Free;
    Objects [i] := nil;
  end;

  inherited;
end;

Aber wird bei Objects [i].Free nicht nur der Destruktor von TObject aufgerufen?
Es soll ja aber mein Destruktor aufgerufen werden. Warum muss ich da nicht casten?