Всё правильно. Код Ampera должен работать быстрее, т.к. у него применяется выход из внутреннего цикла, а я применил Pos(s[i],str)
------------ Дoбавленo в 08.55:
C таким же успехом можно убрать и Memo
nesco, так правишь Share.pas или вызывать огонь на себя ?