Wort in einem String suchen

[Pseudemys Nelsoni]

Delphi-Quellcode:

procedure TForm1.IdIRC1Raw(Sender: TObject; AUser: TIdIRCUser; ACommand,
  AContent: String; var Suppress: Boolean);
var
  s: string;
  i: integer;
begin
  acontent := copy(acontent,LastDelimiter(' ', acontent)+1, length(acontent));
  if POS('+a', acontent) > 0 then
    begin
      for i := 0 to listbox1.Items.IndexOf(acontent) do
        begin
          sl1.AddObject(acontent, image10.Picture.Bitmap);
          sl2.Delete(i);
          listbox1.Clear;
          listbox1.Items.AddStrings(sl1);
          listbox1.Items.AddStrings(sl2);
        end;
    end;
    if POS('-a', acontent) > 0 then
      memo1.Lines.Add('jo');
end;

das 1. funzt wunderbar, aber das:

"if POS('-a', acontent) > 0 then
memo1.Lines.Add('jo');"

nicht, obwohl bei einem event "-a" vorkommt, wenn ich den ganzen oberen teil lösche und nur das

"if POS('-a', acontent) > 0 then
memo1.Lines.Add('jo');"

nehme gehts. Ist da was falsch dran?

btw: sl1 und sl2 sind zwei globale Stringlists

edit: color geht wohl nicht in nem delphiquote... lass es aber drin damit man weiss was gemeint is

gruss