Delphi - Ejecutar aplciacion y esperar respuesta

Necesito ejecutar una aplicacion y esperar a que esta termine par tomar los valores de un txt. El txt en un principio esta vacio y la aplicacion lo llena de datos por lo cual no asumo como trigger el hecho de que el archivo exista.

Ejecutar un programa esperando o no a que termine.

Esperando a que termine

function WinExecAndWait32(FileName:String; Visibility : integer):integer;
{Ejectuta el programa y espera a que termine.
Las opciones de visibilidad son las típicas
en estos casos: SW_HIDE, SW_MAXIMIZE, SW_MINIMIZE, SW_RESTORE,
SW_SHOW, SW_SHOWDEFAULT, SW_SHOWMAXIMIZED,
SW_SHOWMINIMIZED, SW_SHOWMINNOACTIVE, SW_SHOWNA,
SW_SHOWNOACTIVATE, SW_SHOWNORMAL
Si necesitas más información sobre estas opciones
busca la función ShowWindow en la ayuda del Api de
Windows}
var
zAppName:array[0..512] of char;
zCurDir:array[0..255] of char;
WorkDir:String;
StartupInfo:TStartupInfo;
ProcessInfo:TProcessInformation;
begin
StrPCopy(zAppName,FileName);
GetDir(0,WorkDir);
StrPCopy(zCurDir,WorkDir);
FillChar(StartupInfo,Sizeof(StartupInfo),#0);
StartupInfo.cb := Sizeof(StartupInfo);

StartupInfo.dwFlags := STARTF_USESHOWWINDOW;
StartupInfo.wShowWindow := Visibility;
if not CreateProcess(nil,
zAppName,
nil,
nil,
false,
CREATE_NEW_CONSOLE or
NORMAL_PRIORITY_CLASS,
nil,
nil,
StartupInfo,
ProcessInfo) then Result := -1 { pointer to PROCESS_INF }
else begin
WaitforSingleObject(Proce