Listenindex überschreitet das Maximum

[Treffnix]

Auf den ersten Blick würd ich den Fehler hier vermuten:
ListView1.Items.Item[I2].Caption+ListView1.Items.Item[I2].SubItems.Strings[I2] Du benutzt für die Subitems den gleichen Zähler wie für das Item. Damit würdest du immer auf das 1. Subitem des 1. Items, das 2. Subitem des 2. Items, das 3.Subitem des 3. Items usw. zugreifen. Denke nicht, dass du das wirklich willst, oder?