[*Caro*]

Hola Black_Ocean, no borres de principio a fin, sino empieza desde el final hasta el principio para que no te de el error.

Tu for quedaría asi:

Código Delphi [-]
  for i:=ListView1.Items.Count-1 downto 0 do
   begin
     .......
     .......
   end;

Saluditos