Procedure RunAny(CommandLine: string; Str: TStrings);
var
  tRead, cWrite, dwAvail: cardinal;
  SA: TSecurityAttributes;
  PI: TProcessInformation;
  SI: TStartupInfo;
  sBuff: THandleStream;
  StringBuf: TStringList;
  ret : Cardinal;
  m : TMemoryStream;
  fla : boolean;
begin
  //Инициализация
  SA.nLength:=SizeOf(SECURITY_ATTRIBUTES);
  SA.bInheritHandle:=True;
  SA.lpSecurityDescriptor:=nil;
  if not CreatePipe(tRead, cWrite, @SA, 0) then Exit;
  ZeroMemory(@SI, SizeOf(TStartupInfo));
  SI.cb:=SizeOf(TStartupInfo);
  SI.dwFlags:=STARTF_USESTDHANDLES or STARTF_USESHOWWINDOW;
  SI.wShowWindow:=SW_HIDE;
  SI.hStdOutput:=cWrite;
  //Стартуем процесс...
  if CreateProcess(nil, PChar(CommandLine), nil, nil, True, 0, nil, nil, SI, PI)
  then begin
      Str.Clear();
      sBuff := THandleStream.Create(tRead);
      StringBuf := TStringList.Create();
      m := TMemoryStream.Create;
      repeat
        //Ждем N-дцать минут
        Ret := WaitForSingleObject(PI.hProcess, 100);
        StringBuf.Clear();
        if sBuff.Size > 0 then
        begin
          fla := (m.Size > 0) and not (PByteArray(m.Memory)^[m.Size - 1] in [13, 10]);
          m.Size := 0;
          m.LoadFromStream(sBuff);
          m.Position := 0;
          StringBuf.LoadFromStream(m); //Помещаем блок в буфер
          if StringBuf.Count > 0 then
          begin
            //Склеиваем разорванную строку
            if (Str.Count > 0) and fla then
            begin
              StringBuf.Strings[0] := Str.Strings[Str.Count-1]+StringBuf.Strings[0];
              Str.Delete(Str.Count-1);
            end;
          end;
          //Добавляем блок из буфера
          Str.AddStrings(StringBuf);
        end;
        //не пуст ли pipe ?
        //PeekNamedPipe(tRead, nil, 0, nil, @dwAvail, nil);
      until (Ret <> WAIT_TIMEOUT);
      m.Free;
      CloseHandle(PI.hProcess);
      CloseHandle(PI.hThread);
  end;       // if CreateProcess
  CloseHandle(tRead);
  CloseHandle(cWrite);
end;