ANTICHAT - Показать сообщение отдельно - Поиск слов в тексте (delphi)

качаешь ты етот "RegExpr.pas" , кидаешь в папку с проекто,
потом в Unit1.pas подключаешь модуль:э
uses ...,RegExpr;
и юзаешь, как я написал.

примерчик:

Код:

var
   r :TRegExpr;
   s :string;
begin
   s := 'testing! test multi test! and some test!';
   r :=TRegExpr.Create;
   r.Expression:='test(.+?)test';
   if r.Exec(s) then
   repeat
        showmessage(RegExp.Match[1]);
   until not RegExp.ExecNext;

в результате увидешЬ:
"ing! ", " multi ", "! and some "

удачи (;