procedure THIWinExec.Read;
var Total:dword; bWait:boolean; hWait:THandle; bError:boolean; 
//  pBuffer: array[0..1024] of char;
  pBuffer: string;
begin
  pBuffer := ';
  hWait := CreateEvent(nil,false,false,nil); bError := false;
  while FRead and not bError do begin
    bWait := true;
    if not PeekNamedPipe(hPipeErrorsRead,nil,0,nil,@Total,nil) then bError := true;
    if Total>0 then begin
      bWait := false;
      SetLength(pBuffer, Total); 
      if ReadFile(hPipeErrorsRead, pBuffer[1], Total, Total, nil) then begin
//        pBuffer[Total] := #0;
        _hi_OnEvent(_event_onConsoleError, pBuffer);
      end;
    end;
    if not PeekNamedPipe(hPipeOutputRead,nil,0,nil,@Total,nil) then bError := true;
    if Total>0 then begin
      bWait := false;
      SetLength(pBuffer, Total);
      if ReadFile(hPipeOutputRead, pBuffer[1], Total, Total, nil) then begin
//        pBuffer[Total] := #0;
        _hi_OnEvent(_event_onConsoleResult, pBuffer);
      end;
    end;
    if bWait then WaitForSingleObject(hWait,1);
  end;
  CloseHandle(hWait);
  if bError then begin
    Terminate;
    _hi_OnEvent(_event_onConsoleTerminate);
  end;
end;

Add(MainForm,2953706,63,147)
{
 Width=793
 Height=577
 Caption="TaskList"
 link(onCreate,6353601:doWork2,[])
}
Add(Charset,1075513,273,154)
{
 link(onCharset,6222339:doAdd,[])
}
Add(StrList,6222339,336,154)
{
}
Add(Replace,10589290,336,217)
{
 SubStr="1310"
 link(onReplace,9502237:doReplace,[])
 link(Str,6222339:Text,[])
}
Add(Replace,9502237,385,217)
{
 SubStr=""""
 DestStr="1310"
 link(onReplace,1642398:doReplace,[])
}
Add(Hub,8537244,483,217)
{
 OutCount=6
 link(onEvent1,10397504:doText,[])
 link(onEvent3,2320706:doClear,[(615,237)(615,279)])
 link(onEvent4,10125348:doEnum,[(531,244)(531,272)])
 link(onEvent5,6222339:doClear,[(509,251)(509,121)(318,121)(318,167)])
 link(onEvent6,8016477:doConsoleTerminate,[(515,258)(515,288)(177,288)(177,174)])
}
Add(Replace,1642398,434,217)
{
 SubStr="""
 link(onReplace,8537244:doEvent1,[])
}
Add(Timer,15011779,133,161)
{
 Interval=100
 Enable=1
 AutoStop=1
 link(onTimer,8016477:doConsoleExec,[])
}
Add(Timer,11250468,273,217)
{
 Interval=400
 Enable=1
 AutoStop=1
 link(onTimer,10589290:doReplace,[])
}
Add(WinExec,8016477,196,147)
{
 Param="/V /NH /FO CSV"
 FileName="tasklist"
 Point(doConsoleExec)
 Point(onConsoleResult)
 Point(doConsoleTerminate)
 Point(onConsoleTerminate)
 link(onExec,11250468:doTimer,[(258,153)(258,223)])
 link(onConsoleResult,1075513:doCharset,[])
 link(onConsoleTerminate,6353601:doWork1,[(240,167)(240,128)(116,128)])
}
Add(StrList,10397504,560,196)
{
}
Add(ArrayEnum,10125348,574,266)
{
 link(onItem,2320706:doAdd,[])
 link(Array,10397504:Array,[])
}
Add(StringTable,2320706,630,266)
{
 Left=565
 Top=115
 Align=5
 Columns=#10:Имя образа|3:PID|10:Имя сессии|12:№ сеанса===2|6:Память|9:Состояние|12:Пользователь|12:Время ЦП===2|14:Заголовок окна|
 StrDelimiter=","
}
Add(HubEx,6353601,112,161)
{
 link(onEvent,15011779:doTimer,[])
}

Add(WinExec,8016477,252,140)
{
 Param="/V /NH /FO CSV"
 FileName="tasklist"
 Point(doConsoleExec)
 Point(onConsoleResult)
}
Add(Timer,15011779,105,154)
{
 Interval=500
 link(onTimer,8016477:doConsoleExec,[])
}

type
  THIWinExec = class(TDebug)
   private
     pBuffer: string;
     hProcess: THandle;
     hPipeInputWrite: THandle;
...