como ejecutar programa externo y detener el proceso del programa hasta que termine

[vroa74]

Buen día:
estoy haciendo uso de un código, solo que me hace falta algo para que se efectúe correctamente
Lo que necesito es ejecutar el programa externo, modificar el archivo que necesito y cuando se cierre el programa externo
el archivo ya modificado abrirlo en el componente RichEdit1, hasta el momento no he podio hacerlo, y la única manera de detenerlo que se me ocurrió fue ponerle un ShowMessage. Se que no es muy eficiente sin embargo, me permite hacer la carga del archivo tal y como quiero.

Código Delphi [-]
var
  A : String;
  B: PWIDECHAR;

Begin

           B := PWIDECHAR( extractfilepath(paramstr(0)) + 'doc\Arch_Texto.rtf');
           ShellExecute(Handle, 'open', 'wordpad', B , nil, SW_SHOWNORMAL);
           ShowMessage(´presiones para continuar´);  {como poder desaparece esta linea }
           RichEdit1.Lines.LoadFromFile(B);

End;