Código Delphi [-] for i:=(lista.Count-1) downto 0 do begin ...
for i:=(lista.Count-1) downto 0 do begin ...