Delphi: подсчитать, сколько раз строка встречается в другой строке

Я использую Delphi 2007 и задаюсь вопросом, есть ли простой способ подсчитать, сколько раз строка встречается в другой строке. Любая встроенная функция, которую я могу использовать?

Примеры:

• «How» встречается один раз в строке «How are you?»
• «do» встречается дважды в строке «How do you do?»