Listenindex überschreitet das Maximum (9).

[mytar]

machs besser so:

wenn schuler.text in ListBox einmal vorkommt:

Delphi-Quellcode:

with ListBox1.Items do
  Delete(IndexOf(schuler.text));

allgemein Lösung:

Delphi-Quellcode:

with ListBox1.Items do
 while IndexOf(schuler.text) > -1 then
  Delete(IndexOf(schuler.text));

greetz
mytar