[Nuria]

Hola Romanosky!

Lo mismo hay otra manera más adecuada de hacerlo, pero yo no la he encontrado. Puedes hacer lo siguiente:

Código Delphi [-]
 longitud := Length(RxRichEdit.Text);
 posi := RxRichEdit.FindText(textoabuscar,1,longi,[stSetSelection]);
 while posi >= 0 do begin
     //
    // Haces lo que tengas que hacer
    //

    // Busca la siguiente palabra.
    posi := RxRichEdit.FindText(Textoabuscar,posi,longi,[stSetSelection]);
 end;

Espero que te sirva... Saludos!