Zaznaczanie słowa

RichEdit1.Text:=StringReplace(RichEdit1.Text, 'slowo' '', [rfReplaceAll]);

Taki mam kod do usuwania w richedit slowa "slowo". A jak będzie wyglądał kod do zaznaczania ? Żeby tylko zaznaczyć ?

Mam nadzieję, że o to chodziło.

var
Slowo : string;
begin
Slowo := 'cosik';
RichEdit1.SelStart := Pos(Slowo, RichEdit1.Text) - 1;
RichEdit1.SelLength := Length(Slowo);
RichEdit1.SetFocus;
end;