pierdo los estilo del RXRichEdit

[jorodgar]

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
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;