uso de WaitForSingleObject para hacer un instalador

[crievep]

Hola:
Estoy haciendo un instalador que debe ejecutar otros .EXEs, lo hago de la siguiente forma pero no espera hasta terminar la instalacion del primer exe, estos ejecutables son instaladores, y deseo que despues de presionar el boton: 'Terminar' continue la instalacion del otro, pero en realidad no se detiene:

Código Delphi [-]
// primer exe
 
    ruta := Pchar(ExtractFileDir(Application.ExeName) + '\Instaladores\Primer.exe');
    ExecInfo.cbSize := SizeOf(ExecInfo);
    ExecInfo.fMask := SEE_MASK_NOCLOSEPROCESS;
    ExecInfo.Wnd := 0;
    ExecInfo.lpVerb := 'open';
    ExecInfo.lpFile := ruta;
    ExecInfo.lpParameters := nil;
    ExecInfo.lpDirectory := nil;
    ExecInfo.nShow := SW_NORMAL;
    ShellExecuteEx(@ExecInfo);
    WaitForSingleObject(ExecInfo.hProcess, INFINITE); 
   
// segundo.exe

    ruta := Pchar(ExtractFileDir(Application.ExeName) + '\Instaladores\Segundo.exe');
    ExecInfo.cbSize := SizeOf(ExecInfo);
    ExecInfo.fMask := SEE_MASK_NOCLOSEPROCESS;
    ExecInfo.Wnd := 0;
    ExecInfo.lpVerb := 'open';
    ExecInfo.lpFile := ruta;
    ExecInfo.lpParameters := nil;
    ExecInfo.lpDirectory := nil;
    ExecInfo.nShow := SW_NORMAL;
    ShellExecuteEx(@ExecInfo);
    WaitForSingleObject(ExecInfo.hProcess, INFINITE);

De antemano gracias por la posible ayuda y correciones necesarias para solucionar esto