Lazarus. TProcess. Cannot seek on pipe

[Stilet]

Всем доброго. Чтоб запустить в программе консольную программу (если кому нужны подробности то это питон и РНР) использую следующий код:

    with TProcess.Create(nil) do begin
     CommandLine:='Командная строка'
     Options:=[poNoConsole,poUsePipes];
     log('Пытаюсь выполнить скрипт '+CommandLine);
     try
      Active:=true;
      WaitOnExit;
       with TFileStream.Create(ParaFile+'.ans',fmCreate) do begin
        try
          while true do begin
           WriteByte(Output.ReadByte); Sleep(10);
          end;
        except

        end;
        Free;
       end;
     except
      on e:Exception do
       log('Скрипт '+CommandLine+' Сгенерировал ошибку: '+e.Message);
     end;
     log('Скрипт '+CommandLine+' завершил работу с результатом '+IntToStr(ExitStatus)+' '+SysErrorMessageUTF8(ExitStatus));
     Free;
    end;

Это работает.

Знаю что индустивностью попахивает. но попытки прописать
CopyFrom(Output,Output.Size) приводят к ошибке

Cannot seek on PIPE

Операционка Windows.

Вопрос: Как из пайпов то правильно считывать. Пусть даже не в этом компоненте, но узнать размер пайпа то хочется. Может из пайпа вообще нельзя в винде размер вычислять?
А то ведь действительно грязновато получается, и отлаживать не удобно.

[Poma][a]

Не силен в английском, но может пригодится.. : тыц

[Stilet]

О! Точняк. Как-то с пайпами про TStringStream с его LoadFromStream и забыл.
Данке.