перехват вывода консоли

[zurot]

Всем привет, подскажите, делаю что то типа гуя для NSIS.
Требуется перехватить вывод из консоли makensis.exe для того что бы показать пользователю лог.

Запускаю компиляцию так:

        CaptureConsoleOutput(extractfilepath(application.ExeName) +'nsis\makensis.exe', extractfilepath(application.ExeName) +'nsis\script.nsi');

procedure CaptureConsoleOutput(const ACommand, AParameters: String);
const
  CReadBuffer = 2400;
var
  saSecurity: TSecurityAttributes;
  hRead: THandle;
  hWrite: THandle;
  suiStartup: TStartupInfo;
  piProcess: TProcessInformation;
  pBuffer: array [0 .. CReadBuffer] of ansiChar;
  dRead: DWord;
  dRunning: DWord;
begin
  saSecurity.nLength := SizeOf(TSecurityAttributes);
  saSecurity.bInheritHandle := true;
  saSecurity.lpSecurityDescriptor := nil;

  if CreatePipe(hRead, hWrite, @saSecurity, 0) then
  begin
    FillChar(suiStartup, SizeOf(TStartupInfo), #0);
    suiStartup.cb := SizeOf(TStartupInfo);
    suiStartup.hStdInput := hRead;
    suiStartup.hStdOutput := hWrite;
    suiStartup.hStdError := hWrite;
    suiStartup.dwFlags := STARTF_USESTDHANDLES or STARTF_USESHOWWINDOW;
    suiStartup.wShowWindow := SW_HIDE;

    if CreateProcess(nil, PChar('"'+ACommand + '" "' + AParameters+'"'), @saSecurity,
      @saSecurity, true, NORMAL_PRIORITY_CLASS, nil, nil, suiStartup, piProcess)
    then
    begin
      repeat
        dRunning := WaitForSingleObject(piProcess.hProcess, 100);
        application.ProcessMessages();
        repeat
          dRead := 0;
          ReadFile(hRead, pBuffer[0], CReadBuffer, dRead, nil);
          pBuffer[dRead] := #0;

          OemToAnsi((pBuffer), (pBuffer));

          ClientBilderForm.BuildLogMemo.Lines.Add(String(pBuffer));

        until (dRead < CReadBuffer);
      until (dRunning <> WAIT_TIMEOUT);
      CloseHandle(piProcess.hProcess);
      CloseHandle(piProcess.hThread);
    end;

    CloseHandle(hRead);
    CloseHandle(hWrite);
  end;
end;

Все работает нормально, но если добавить в установочный пакет что то "подозрительное" по мнению защитника windows моя форма намертво виснит.
Почему так происходит и как избавится от данного эфекта и вернуть управление форме? Вывести сообщение об ошибке или что то в этом роде...