Поиск в RichEdit

[Hhhhhhhhh]

Помогите пожалуйста с поиском в RichEdit. Мне нужно чтобы он выделял все слова одновременно, но он выделяет только первое слово. Помогите пожалуйста!!!!!!:confused :
procedure TForm1.Button1Click(Sender: TObject);
var s:string;
i:integer;
begin
s:=RichEdit1.Text;
for i:=0 to RichEdit1.Lines.Count-1 do
begin
if pos(edit1.Text, s)<>0 then
begin
RichEdit1.SetFocus();
RichEdit1.SelStart:=pos(edit1.Text, s)-1;
RichEdit1.SelLength:=length(edit1.T ext);
RichEdit1.SelText;
end;
end;
end;

[Аватар]

Не может RichEdit выделять несколько фрагментов. Если очень надо, то раскрашивать другим цветом найденные, но это совсем другая история

ADD

Код поиска фрагментов в топку