[keyboy]

Me parece que debes recorrer la lista alrevés. En lugar de

Código Delphi [-]
for w := 0 to Pred(ListView2.Items.Count) do

prueba con

Código Delphi [-]
for w := Pred(ListView2.Items.Count) downto 0 do

Bye