[[xEsk]]

Vale, he visto que tienen el mismo nombre, prueba en poner esto a ver si te funciona:

Código Delphi [-]
with RE2 do
begin

Donde:=FindText(sLibro,
                    SelStart+1,
                    GetTextLen,
                    [RxRichEd.stMatchCase]);

Saludos.