Tengo el siguiente codigo y mi problema es que al hacer el stringreplace pierde el color de letra de las lineas que ya había insertado con anterioridad en el richedit
![Frown](http://www.clubdelphi.com/foros/images/smilies/frown.gif)
Alguien me dá alguna idea??? Gracias
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
begin
RxRichEdit1.SelAttributes.Color:=clRed;
RxRichEdit1.Lines.add('hola esto es una prueba ');
RxRichEdit1.SelAttributes.Color:=clblue;
RxRichEdit1.lines.add('para www.clubdelphi.com');
RxRichEdit1.text:=stringreplace(RxRichEdit1.text, '', '',
[rfReplaceAll, rfIgnoreCase]);
end;