Wort in einem String suchen

[Pseudemys Nelsoni]

thx edancer werde das mal versuchen, zuvor noch eins...ich erhalte immer einen fehler:

http://www.united-coding.de/fehler.jpg

der code an dem ganzen ist:

Delphi-Quellcode:

procedure TForm1.IdIRC1Raw(Sender: TObject; AUser: TIdIRCUser; ACommand,
  AContent: String; var Suppress: Boolean);
var
  Mode, Nick: string;
  Counter: integer;
  bmp: TBitmap;
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
    for Counter := 0 to Listbox1.Items.IndexOf(Nick) do
    begin
      sl2.Delete(Counter); // Stringlist(sl2) löschen
      sl1.AddObject(Nick, image10.Picture.Bitmap); // String "Nick" mit Bild zur Stringlist(sl1) hinzufügen
      listbox1.Clear; // Listbox1 Strings löschen
      listbox1.Items.AddStrings(sl1); // Strings aus Stringlist(sl1) der Listbox1 hinzufügen
      listbox1.Items.AddStrings(sl2); // Strings aus Stringlist(sl2) der Listbox1 hinzufügen
    end;
  end;
  if Mode = '-a' then // Wenn mode "-a" ist
  begin
    for Counter := 0 to listbox1.Items.IndexOf(Nick) do
    begin
      sl1.Delete(Counter); // Stringlist(sl1) löschen
      sl2.AddObject(Nick, image11.Picture.Bitmap); // String "Nick" mit Bild zur Stringlist(sl2) hinzufügen
      listbox1.Clear; // Listbox1 Strings löschen
      listbox1.Items.AddStrings(sl1); // Strings aus Stringlist(sl1) der Listbox1 hinzufügen
      listbox1.Items.AddStrings(sl2); // Strings aus Stringlist(sl2) der Listbox1 hinzufügen
    end;
  end;
end;

woher kommt dann der fehler?

gruss silent