anchor.diff:  { TAnonymousPipeServerTransportImpl }
   
   
  -constructor TAnonymousPipeServerTransportImpl.Create( aBufsize : Cardinal);
  +constructor TAnonymousPipeServerTransportImpl.Create(aBufsize : Cardinal; aTimeOut : DWORD);
   // Anonymous pipe CTOR
   begin
     inherited Create;
  
positive.code:                                          'TServerPipe unable to initiate pipe communication');
  
    // create the transport impl
    result := TAnonymousPipeTransportImpl.Create( FReadHandle, FWriteHandle, FALSE);
  end;
  
  
  
negative.code:     FClientAnonRead,
      FClientAnonWrite  : THandle;
  
      FTimeOut: DWORD;
    protected
      function Accept(const fnAccepting: TProc): ITransport; override;
  
  