LvNewCS2.ListItems(i).ListSubItems(i).Text

si vede che ListItems(i) non esiste o quasi sicuramente ListSubItems(i)

Prova LvNewCS2.ListItems(i).ListSubItems(y).Text
dove al posto di y puoi mettere 0,1,2,...