Удалить строки при вхождении слова

[zver777]

Есть две переменные tstringlist(k1 и k2).
Если в любой строке из k1 встречается любая строка из k2(не дубликаты строк, а вхождения строк из k2 в строках k1), то надо удалить эту строку в k1.
Если делать обычным циклом и делать pos, то занимает много времени, так как строк очень много.
Если ли способ побыстрее это сделать?

Например
k1 k2
1 3
2 4
124
1

Строку 124 надо удалить

[Stilet]

Если в любой строке из k1 встречается любая строка из k2(не дубликаты строк, а вхождения строк из k2 в строках k1), то надо удалить эту строку в k1.

Вообщето это делается в цикле как ни крути. Можно конечно применить StringRelaсe для свойств Text этих tstringlist но лучше в цикле ибо контроль очевиден.

Ты уточни к какой из переменных принадлежит 124 твоя...

В общем подробнее расписывай

[RUSt88]

побыстрее только с указателями, они для того и созданы