procedure TForm1.btnGoClick(Sender: TObject);
{$IFDEF MSWINDOWS}
type
  WinCpString = type AnsiString(CP_ACP);//uses LConvEncoding
{$ENDIF}
const
  BUF_SIZE = 1024*2; // Размер буфера для чтения выходных данных блоками
var
  {$IFDEF MSWINDOWS}
  Buffer: WinCpString = '';
  {$ELSE}
  Buffer: string = '';
  {$ENDIF}

  DebugStr: String = '';//отладочная строка
  BufferStr: String = '';//буфер-накопитель
  BytesRead: LongInt = 0;//кол-во считанных из буфера байт
  LineEndingPos: Integer = 0;//позиция начала перевода строки
  StrPartLineEndingAhead //часть строки до LineEnding
  , StrPartLineEndingBehind //часть строки после LineEnding
                :String;
  StrCounter: Integer = 0;//счетчик выводимых memoOutput строк
begin
  memoOutput.Clear;

  {$IFDEF MSWINDOWS}
  // В Windows команду dir нельзя использовать напрямую, потому что она является встроенной
  // командой оболочки. Поэтому нужны cmd.exe и дополнительные параметры
  AProcess.Executable := 'c:\windows\system32\cmd.exe';
  AProcess.Parameters.Add('/c');
  AProcess.Parameters.Add('dir /s c:\Windows\System32\drivers');
  {$ENDIF}
  {$IFDEF UNIX}
  AProcess.Executable := '/bin/ls';
  AProcess.Parameters.Add('--recursive');
  AProcess.Parameters.Add('--all');
  AProcess.Parameters.Add('-l');
  {$ENDIF}

  AProcess.Options := [poUsePipes, poStderrToOutPut, poNoConsole];

  //Запуск процесса (выполнение команды dir/ls)
  AProcess.Execute;

  StrPartLineEndingAhead:= '';
  StrPartLineEndingBehind:= '';
  repeat
    memoOutput.Lines.BeginUpdate;
    try
      SetLength(Buffer,BUF_SIZE);//задаем минимальный размер Buffer (как правило размер Pipes в ОС не превышает 2kB)
      BytesRead := AProcess.Output.Read(Buffer[1],Length(Buffer));//читаем в Buffer и получаем кол-во считанных байт BytesRead;
      if BytesRead > 0
      then
        begin
          SetLength(Buffer,BytesRead);
          DebugStr:= CP1251ToUTF8(Buffer);//uses LConvEncoding

          {LineEnding - алиас для sLineBreak:
          Win = #13#10
          Unix = #10
          Mac OS до v.9 = #13}

          //получаем позицию LineEnding в строке
          LineEndingPos:= UTF8Pos(LineEnding,CP1251ToUTF8(Buffer)); //uses LazUTF8

          if LineEndingPos > 0
          then
            repeat
              if LineEndingPos = 1 //LineEnding в начале строки
              then
                begin
                  StrPartLineEndingAhead:= UTF8Copy(DebugStr,1, UTF8Length(LineEnding));//по сути присвоим пустую строку ''
                  Inc(StrCounter);
                  memoOutput.Lines.Add(Format('%d.',[StrCounter]));//добавляем в memoOutput пустую строку
                end
              else //LineEnding не в начале строки
                begin
                  StrPartLineEndingAhead:= UTF8Copy(DebugStr,1, LineEndingPos - 1);//захватываем часть строки до LineEndingPos;
                  BufferStr:= BufferStr + StrPartLineEndingAhead;// добавляем к строке-буферу захваченный до LineEnding текст
                  Inc(StrCounter);
                  memoOutput.Lines.Add(Format('%d. %s',[StrCounter, BufferStr]));//пишем буфер-накопитель в memoOutput
                  BufferStr:= '';//и "обнуляем" его для следующей итерации
                end;

              //захватываем оставшуюся часть строки после LineEndingPos без символов LineEnding
              StrPartLineEndingBehind:= UTF8Copy(DebugStr,LineEndingPos + UTF8Length(LineEnding), UTF8Length(DebugStr));

              DebugStr:= StrPartLineEndingBehind;
              LineEndingPos:= UTF8Pos(LineEnding,DebugStr);
            until LineEndingPos = 0
          else //LineEnding в DebugStr отсутствует 
            begin
             BufferStr:= BufferStr + DebugStr;
             Inc(StrCounter);
             memoOutput.Lines.Add(Format('%d. %s',[StrCounter, BufferStr]));//пишем строку-буфер в memoOutput
            end;
        end;
    finally
      memoOutput.Lines.EndUpdate;
      memoOutput.SelStart := UTF8Length(memoOutput.Text);
    end;
    Sleep(10);
    Application.ProcessMessages;
  until BytesRead = 0;
end;      

          if LineEndingPos > 0
          then
            repeat
            <skiped>
            until LineEndingPos = 0
          else //LineEnding в DebugStr отсутствует 
            begin