Código Delphi [-]with RE2 do begin Donde:=FindText(sLibro, SelStart+1, GetTextLen, [RxRichEd.stMatchCase]);
with RE2 do begin Donde:=FindText(sLibro, SelStart+1, GetTextLen, [RxRichEd.stMatchCase]);