Wort in einem String suchen

[Pseudemys Nelsoni]

hallo christian, danke für die antwort !

hab das geändert in:

Delphi-Quellcode:

procedure TForm1.IdIRC1Raw(Sender: TObject; AUser: TIdIRCUser; ACommand,
  AContent: String; var Suppress: Boolean);
var
  Mode, Nick: string;
  Counter: integer;
begin
  Mode := Copy(acontent, 14, 2);
  Nick := Copy(acontent, LastDelimiter(' ' , acontent)+1, length(acontent));
  if Mode = '+a' then
  begin
    for Counter := 0 to Listbox1.Items.IndexOf(Nick) do
    begin
      sl2.Delete(Counter);
      sl1.AddObject(Nick, image10.Picture.Bitmap);
      listbox1.Clear;
      listbox1.Items.AddStrings(sl1);
      listbox1.Items.AddStrings(sl2);
    end;
  end;
  if Mode = '-a' then
  begin
    for Counter := 0 to listbox1.Items.IndexOf(Nick) do
    begin
      sl1.Delete(Counter);
      sl2.AddObject(Nick, image11.Picture.Bitmap);
      listbox1.Clear;
      listbox1.Items.AddStrings(sl1);
      listbox1.Items.AddStrings(sl2);
    end;
  end;
end;

geht aber noch immer nicht...also is bisschen schwer zu sehen was das sein soll....also es geht darum das ich beim dem mode "+a"(Admin)
den Nick aus der TStringlist2(Reg User) in die TStringList1(Admins) tue und von da aus in die Stringlist. Die Admins haben ein object(kleines bildchen) vor dem nick wenn ich aber "-a" mache passiert irgendwie gar nichtsalso user hat immer noch das object vor dem nick und is auch noch immer in StringList1.

"for Counter := 0 to listbox1.Items.IndexOf(Nick) do" müsste es hinten vielleicht heissen IndexOfObject? (habs schon probiert geht aber auch nicht. Reicht es überhaupt wenn ich den String aus der listbox lösche oder muss man auch das object davor extra löschen?

gruss mario