Rekursives Freigeben einer TStringList // Compilerfehler

[DeddyH]

Delphi-Quellcode:

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

Sollte dasselbe bewirken, nur kürzer.