Dik, ja chtěl na to jít takto, ale někde mam kopanec a nefunguje to.

  i1 := 0;
  i:=TS.Count-1;
  while (i1=i) do
    begin
       s:= TS.Strings[i1];
       IF pos('ahoj',s) <> 0 then
                                begin
                                 TS.Delete(i1);
                                 i:=TS.Count-1;
                                 showmessage('je to tam');
                                end;
        Memo2.Lines.Add (s);
       Inc(i1);
    end;