После выполнения CreateProcess зависаем на WaitForSingleObject

function Run_Dos(CmdLine: string) : string;
const
  ReadBuffer = 255;
var
  Security: TSecurityAttributes;
  ReadPipe, WritePipe: THandle;
  start: TStartUpInfo;
  ProcessInfo: TProcessInformation;
  Buffer: array [0 .. 255] of AnsiChar;
  BytesRead: DWord;
  Apprunning: DWord;
begin
 
  with Security do
  begin
    nlength := SizeOf(TSecurityAttributes);
    binherithandle := true;
    lpsecuritydescriptor := nil;
  end;
  if Createpipe(ReadPipe, WritePipe,
    @Security, 0) then
  begin
    result := '';
 
    FillChar(Start, Sizeof(Start), #0);
    start.cb := SizeOf(start);
    start.hStdOutput := WritePipe;
    start.hStdInput := ReadPipe;
 
    start.dwFlags := STARTF_USESTDHANDLES + STARTF_USESHOWWINDOW;
 
    start.wShowWindow := SW_HIDE;
 
 
    if CreateProcess(nil,
      PChar(CmdLine),
      @Security,
      @Security,
      true,
      NORMAL_PRIORITY_CLASS,
      nil,
      nil,
      start,
      ProcessInfo) then
    begin
 
//     Apprunning := WaitForSingleObject(ProcessInfo.hProcess, 10000);
     Apprunning := WaitForSingleObject(ProcessInfo.hProcess, infinite);
 
 
    //перед чтением из пайпа закрыть один конец
     CloseHandle(WritePipe);
 
      repeat
        ReadFile(ReadPipe, Buffer, ReadBuffer, BytesRead, nil);
        Buffer[BytesRead] := #0;
        result := result + Buffer;
 
 
      until (BytesRead < ReadBuffer);
    end;
 
    CloseHandle(ProcessInfo.hProcess);
    CloseHandle(ProcessInfo.hThread);
    CloseHandle(ReadPipe);
  end;
 
end;

     Apprunning := WaitForSingleObject(ProcessInfo.hProcess, infinite);

// черновик кандидата в аналоги сишной функции system()
function system(const command: string): DWORD;
{$IFDEF MSWINDOWS}
var
  StartupInfo: TStartupInfo;
  ProcessInfo: TProcessInformation;
begin
  ZeroMemory(@StartupInfo, SizeOf(StartupInfo));
  StartupInfo.cb:= SizeOf(StartupInfo);
 
  var cmd_exe:= GetEnvironmentVariable('SystemRoot') + '\system32\cmd.exe';
 
  if CreateProcess(PChar(cmd_exe),                        // имя исполняемого модуля
                   PChar('/c ' + command),                // строка параметров запускаемой программы
                   nil,                                   // структура SECURITY_ATTRIBUTES процесса
                   nil,                                   // структура SECURITY_ATTRIBUTES потока
                   true,                                  // флаг наследования текущего процесса
                   NORMAL_PRIORITY_CLASS,                 // флаги способов создания процесса
                   nil,                                   // указатель на блок среды
                   nil,                                   // текущий диск и каталог
                   StartupInfo,                           // структура STARTUPINFO
                   ProcessInfo)                           // структура PROCESS_INFORMATION
    then begin
           CloseHandle(ProcessInfo.hThread);
           WaitForSingleObject(ProcessInfo.hProcess, INFINITE); // ожидание выхода
           CloseHandle(ProcessInfo.hProcess);
           result:= 0;
         end
    else result:= GetLastError();
end;
{$ELSE}
begin
{$MESSAGE FATAL 'Для других компиляторов реализации пока нету.'}
end;
{$ENDIF}