anchor.diff:  
       function incReferenceCounter(pvDebugInfo: string; pvObj: TObject): Boolean;
   
  -    procedure RequestDisconnect(pvDebugInfo: string = ''; pvObj: TObject = nil);
     private
       FAlive:Boolean;
   
  
positive.code: 
  end;
  
  procedure TDiocpCustomContext.RequestDisconnect(pvDebugInfo: string = ''; pvObj:
      TObject = nil);
  var
    lvCloseContext:Boolean;
  begin
  
negative.code:     /// </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;
  