Я потница писал прогу для поиска и подсчета количества совпадений экземпляров в тексте.
Можно сделать перебором строк.
ЭКЗЕМПЛЯР
ПОЛНЫЙТЕСК
СТРОКА
i
i:=0;
[код перебора](пока i <> ПОЛНЫЙТЕСК.line.Count)
СТРОКА= ПОЛНЫЙТЕСК[строка i]
[код перебора строк]
Если Pos(ЭКЗЕМПЛЯР, СТРОКА)<>0 То
Действие
Иначе
ДругоеДействие
[конец кода перебора строк]
i:=i+1;
[конец кода перебора]
вот