Como saber cuando un programa msdos llamado con shellexecute ha acabado

[tcp_ip_es]

Pues mismamente lo que pongo en el asunto, necesito llamar a un programa desde mi aplicación y despues de que ese programa se ejecute, tengo que mirar el log que ha generado para en funcion de lo que ponga borrar o no una tabla

Código Delphi [-]
 if ShellExecute(FPal.Handle,nil,PChar(Programa),PChar(parametros),'',SW_SHOWNORMAL) <> ERROR_FILE_NOT_FOUND then
  //Examinar el fichero log y si no tiene errores Borrar tabla ControlCambiosP
  showmessage('Prueba')
 else
   showmessage('No se puede acceder al programa: '''+Programa+''' puede que la ruta sea incorrecta ');

tal y como lo tengo el showmessage prueba sale antes de que el proceso haya acabado con lo que si en esas lineas mirara el log del proceso que ejecuta el otro programa no existiría... es como si lanzara en proceso de fondo el shellexecute y siguiera con lo siguiente, vamos que lo hace asi seguro.... que solución me proponeis???

Gracias de antemano, Saludos, Tony