Oder einfacher (damit das endlich ein Ende hat): mach aus dem
Zitat:
for i := 0 to listbox1.Count do
ein
for i := 0 to listbox1.Count - 1 do
Das natürlich auch an allen anderen Stellen, wo Du das "- 1" vergessen hast (ich habe nicht den kompletten Code gelesen).