Wort in einem String suchen

[Pseudemys Nelsoni]

allerdings wenn ich das für das OnPart event nehme...

Delphi-Quellcode:

procedure TForm1.IdIRC1Part(Sender: TObject; AUser: TIdIRCUser;
  AChannel: TIdIRCChannel);
var Counter: integer;
begin
for Counter := 0 to sl1.Count-1 do
  begin
    if sl1.Strings[Counter] = auser.Nick then
    begin
      sl1.Delete(Counter);
      Listbox1.Clear;
      if sl1.Count > 0 then
      begin
        Listbox1.Items.AddStrings(sl1);
      end;
      if sl2.Count > 0 then
      begin
        Listbox1.Items.AddStrings(sl2);
      end;
    end;
  end;
for Counter := 0 to sl2.Count-1 do
  begin
    if sl2.Strings[Counter] = auser.Nick then
    begin
      sl2.Delete(Counter);
      Listbox1.Clear;
      if sl1.Count > 0 then
      begin
        Listbox1.Items.AddStrings(sl1);
      end;
      if sl2.Count > 0 then
      begin
        Listbox1.Items.AddStrings(sl2);
      end;
    end;
  end;
end;

steht da immer wenn ein regulärer nick(sl2) leavt "ListenIndex überschreitet das Maximum(1)" << was heisst das?

gruss mario