[thinker89]

Есть небольшой код:

Код:

var
s:string;
begin
s:='любое_слово';
RichEdit2.SelStart:= pos(s,RichEdit2.Lines[0])-1;
RichEdit2.SelLength:=Length(s);
RichEdit2.SelAttributes.Color:=clMaroon;
RichEdit2.SelAttributes.Style := [fsBold];

Поиск производиться по тексту RichEdit.После того как находит данное слово поиск прекращается,а мне необходимо,что-бы нашло все слова переменной s в тексте и выделило их.Подскажите как это сделать.Заранее спасибо.
ПыСы:если это просто,не ругайте.Delphi только начал изучать