Удалить из TStringList при отсутствии искомого

[Shouldercannon]

Доброго времени суток!
Есть

  SL.Add('qwerty1');
  SL.Add('qwerty2');
  SL.Add('хочется');
  SL.Add('спрятаться');
  SL.Add('трясутся');

Хочу удалить все строки, где нет qwerty

  for I := SL.Count - 1 downto 0 do
  begin
    if not Pos('qwerty', SL.Strings[I]) = 0 then SL.Delete(I);
  end;

только не получается

[Аватар]

not убери )

[Shouldercannon]

Сообщение от Аватар

not убери )

Бывает