Como usar correctamente ReplaceDialog?
 

Hola, quisiera poder usar el ReplaceDialog sobre un RichEdit pero no funciona como yo quisiera. Lo unico que deseo es que el usuario estando sobre algun documento abierto con el richedit pueda usar este dialogo para buscar y reemplazar algunas palabras. El codigo que utilizo es el siguiente dentro del evento onclick de un boton, pero nada reemplaza:

ReplaceDialog1.Execute;
ReplaceDialog1.FindText:= textoBuscado; //paso por defecto texto buscado
ReplaceDialog1.ReplaceText:= textoReemplazado; //paso por defecto texto a reemplazar
If Length(Editor.SelText) > 0 then
Editor.SelText := ReplaceDialog1.ReplaceText; //intento reemplazar
ReplaceDialog1.CloseDialog;

Aclaracion: este codigo se encuentra dentro de un for por lo que deseo que solito reemplace el texto, sin que el usuario presione el boton Aceptar del dialogo. Por esta razon paso los textos por defecto a buscar y reemplazar.

Espero ayuda pronto...Muchas Gracias!!! :)

¿Probaste usando el standard action: TSearchReplace?... De esta forma te olvidás totalmente del diálogo! ;)