listboxitem überschreitet das maximum(0)

[Alibi]

Das geht schief, wenn kein Element mit dem Suchtext vorhanden ist.
Erst überprüfen, ob überhaupt noch Items drin sind, dann gucken, ob beim nächsten der Suchstring da ist:

Delphi-Quellcode:

  while (ListBox1.Items.Count > 0) and
        (Pos('<select name="kick_mem">', Listbox1.Items.Strings[0]) < 1)do
    listbox1.Items.Delete(0);