[jorodgar]

El hilo que me comentastes, propone la siguiente solucion.
Ya habia visto esta solución con anterioridad antes de escribir
mi duda en el foro y me sucedio lo mismo

Código Delphi [-]
 var
   Start: Integer;
 begin
   Start := RichEdit1.FindText(FindText, 0, Length(RichEdit1.Text), []);
   if Start <> -1 then
   begin
     RichEdit1.SelStart := Start;
     RichEdit1.SelLength := Length(FindText);
     RichEdit1.SelText := ReplaceText;
   end;
 end;