Паскаль, как определить количество вхождений подстроки в строку? именно подстроки а не слова!

Помогите пожалуйста. Фокус с функцией Pos и удалением каждого вхождения не работает, т. к. часть удаленной строки может быть частью новой. хелп плиз.