поиск слова в тексте

чуваки подскажите как найти в тесксте слово

[impersonalis]

Delphi в этом он весь.
Даже простую алгоритмическую задчау пытаются решить модулем\компонентом\библиотекой.
Для текста без какой-либо априорной информации можно использовать любое решение в том числе и в лоб. Если же есть какая-либо спецификация, то:
http://algolist.manual.ru/search/index.php

[Richik]

Я потница писал прогу для поиска и подсчета количества совпадений экземпляров в тексте.

Можно сделать перебором строк.

ЭКЗЕМПЛЯР
ПОЛНЫЙТЕСК
СТРОКА
i

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

вот

спасиб разобрался