Source position: pipes.pp line 57
procedure CreatePipeStreams(
var InPipe: TInputPipeStream;
var OutPipe: TOutputPipeStream
);