Código Delphi [-] for i:= Pred( Lista.Count ) downto 0 do TObject( Lista[i] ).Free; Lista.Clear; Lista.Capacity := 0;
for i:= Pred( Lista.Count ) downto 0 do TObject( Lista[i] ).Free; Lista.Clear; Lista.Capacity := 0;