for i := 0 to ListView1.Items.Count - 1 do
und
if not (ListView1.Items[i].SubItems[2] = ListView1.Items[i+1].SubItems[2]) then //Exception
passen nicht zusammen, denn im letzten durchlauf greifst du so auf
ListView1.Items[ListView1.Items.Count].SubItems[2]
zu, was zu der
Exception führt...mach die schleife bis -2 dann sollte es gehen
Gruß Frank