Código Delphi [-] for i:=lista.Count-1 downto 0 do lista.Objects[i].Free; lista.Clear;
for i:=lista.Count-1 downto 0 do lista.Objects[i].Free; lista.Clear;