Listenindex überschreitet das Maximum (9).

[Stevie]

So, und damit die Liste der (an der Frage völlig vorbei) Schleifen voll ist:

Delphi-Quellcode:

repeat 
  ListBox1.Items.Delete(0); 
until ListBox1.Items.Count = 0;