Wort in einem String suchen

[Pseudemys Nelsoni]

also so:

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 aus "acontent" auslesen
  Nick := Copy(acontent, LastDelimiter(' ' , acontent)+1, length(acontent)); // Mode aus "acontent" auslesen
  if Mode = '+a' then // Wenn mode "+a" ist
  begin 
    sl2.Delete(sl2.IndexOf(Nick));
    sl1.AddObject(Nick, image10.Picture.Bitmap); 
    ListBox1.Clear;
    listbox1.Items.AddStrings(sl1);
    listbox1.Items.AddStrings(sl2); 
  end;
  if Mode = '-a' then // Wenn mode "-a" ist
  begin
    for Counter := 0 to sl1.Count-1 do
    begin
      if sl1.Strings[Counter] = Nick then
      begin
        sl1.Delete(Counter);
        sl2.AddObject(Nick, image11.Picture.Bitmap);
        Listbox1.Clear;
        Listbox1.Items.AddStrings(sl1);
        Listbox1.Items.AddStrings(sl2);
      end;
    end;
  end;
end;

funktionierts jetzt

danke an alle