TListBox, Eintrag finden, dann löschen

[Pseudemys Nelsoni]

habs jetzt so:

Delphi-Quellcode:

procedure TForm1.IdIRC1Part(Sender: TObject; AUser: TIdIRCUser;
  AChannel: TIdIRCChannel);
var bla: integer;
begin
for bla := 0 to sl2.IndexOf(auser.Nick) do
  begin
  sl2.Delete(bla);
  listbox1.Clear;
  listbox1.Items.AddStrings(sl1);
  listbox1.Items.AddStrings(sl2);
  end;
end;

end.

und es funzt...

danke chris