anchor.diff:      /// </summary>
       function PostWSASendRequest(buf: Pointer; len: Cardinal; pvBufReleaseType:
           TDataReleaseType): Boolean; overload;
  +    procedure RequestDisconnect(pvDebugInfo: string = ''; pvObj: TObject = nil);
       procedure SetMaxSendingQueueSize(pvSize:Integer);
   
       property Active: Boolean read FActive;
  
positive.code: 
  end;
  
  procedure TDiocpCustomContext.RequestDisconnect(pvDebugInfo: string = ''; pvObj:
      TObject = nil);
  var
    lvCloseContext:Boolean;
  begin
  
negative.code: 
      function incReferenceCounter(pvDebugInfo: string; pvObj: TObject): Boolean;
  
    private
      FAlive:Boolean;
  
  