поиск по Richedit

[aandreevich]

Есть RichEdit делаю поиск в нём через FindTextА.
В RichEdit список из 10 строк. И так, каким бы не был поиск- действия всёравно выполныются (.
Я грешу на 2й-4й параметры FindTextA

AnsiString s=Label2->Caption;
if (RichEdit1->FindTextA(s,0,10000,TSearchTypes()))
Label2->Font->Color=clRed;
else
Label2->Font->Color=clBlack;

 

[aandreevich]

Если не по ричу, то тогда хотя бы как произвести поиск в директории файлов ?