anchor.diff:  { TAnonymousPipeServerTransportImpl }
   
   
  -constructor TAnonymousPipeServerTransportImpl.Create( aBufsize : Cardinal);
  +constructor TAnonymousPipeServerTransportImpl.Create(aBufsize : Cardinal; aTimeOut : DWORD);
   // Anonymous pipe CTOR
   begin
     inherited Create;
  
positive.code:     procedure InternalClose; override;
  
    public
      constructor Create( aBufsize : Cardinal = 4096);
    end;
  
  
  
negative.code:                                          'TServerPipe unable to initiate pipe communication');
  
    // create the transport impl
    result := TAnonymousPipeTransportImpl.Create( FReadHandle, FWriteHandle, FALSE, FTimeOut);
  end;
  
  
  