listboxitem überschreitet das maximum(0)

[Pseudemys Nelsoni]

ich möchte in einer list box alle items löschen, bis es "<select name="kick_mem">" enthält.

habe es mir so gedacht:

Delphi-Quellcode:

procedure TForm2.Button4Click(Sender: TObject);
begin
  while Pos('<select name="kick_mem">', Listbox1.Items.Strings[0]) < 1 do
  listbox1.Items.Delete(0);
end;

aber wieso der fehler?