anchor.diff:  
   
   constructor TPipeStreamBase.Create( aEnableOverlapped : Boolean;
  -                                    const aTimeOut : DWORD = DEFAULT_THRIFT_TIMEOUT);
  +                                    const aTimeOut, aOpenTimeOut : DWORD);
   begin
     inherited Create;
  -  ASSERT( aTimeout > 0);
  -  FPipe       := INVALID_HANDLE_VALUE;
  -  FTimeout    := aTimeOut;
  -  FOverlapped := aEnableOverlapped;
  +  ASSERT( aTimeout > 0);  // aOpenTimeout may be 0
  +  FPipe        := INVALID_HANDLE_VALUE;
  +  FTimeout     := aTimeOut;
  +  FOpenTimeOut := aOpenTimeOut;
  +  FOverlapped  := aEnableOverlapped;
   end;
   
   
  
positive.code:   Thrift.Stream;
  
  const
    DEFAULT_THRIFT_PIPE_TIMEOUT = DEFAULT_THRIFT_TIMEOUT deprecated 'use DEFAULT_THRIFT_TIMEOUT';
  
  
  
  type
  
negative.code:                         const aEnableOverlapped : Boolean;
                          const aShareMode: DWORD = 0;
                          const aSecurityAttributes: PSecurityAttributes = nil;
                          const aTimeOut : DWORD = DEFAULT_THRIFT_TIMEOUT;
                          const aOpenTimeOut : DWORD = DEFAULT_THRIFT_PIPE_OPEN_TIMEOUT);  overload;
    end;
  
  
  