Проблема с консольными приложениями

function ExecuteAndWait(AFileName: string): boolean;
var si: TStartupInfo;
    pid: TProcessInformation;
begin
    ZeroMemory(@si, SizeOf(si));
    si.cb:=SizeOf(si);
    Result:=CreateProcess(AFileName, // имя файла
                  '',            // командная строка
                  nil,           // SecurityAttributes для процесса
                  nil,           // SecurityAttributes для главного потока процесса
                  false,         // inherit handles?
                  0,             // flags
                  nil,           // environment
                  nil,           // текущая директория
                  si,
                  pid)
   if Result then
   begin
       WaitForSingleObject(pid.hProcess, INFINITE);
       CloseHandle(pid.hProcess);
   end;
end;