anchor.diff:    private
   
       FDebugStrings:TStrings;
  -
  -    /// <summary>
  -    ///   dec RequestCounter and requestDisconnect then check counter flag for Disonnect
  -    /// </summary>
  -    procedure DecReferenceCounterAndRequestDisconnect(pvDebugInfo: string; pvObj:TObject);
   
     private
       // 0: ʼ״̬, ״̬ 1, 2:ӳɹ, 11:ȴر, 12:ر
  
positive.code:     WORD);
  begin
    
  end;
  
  procedure TDiocpCustomContext.postNextSendRequest;
  
negative.code: 
    TContextArray = array of TDiocpCustomContext;
  
    TIocpActionRequest = class(TIocpRequest)
    private
      FAction:Integer;
      FDataPtr:Pointer;
    public
      procedure HandleResponse; override;
    end;
  
    /// <summary>
    ///   client object
    /// </summary>
    TDiocpCustomContext = class(TObject)
  
    private
      
      FReleaseBack:TNotifyContextEvent;
      FCreateSN:Integer;
  
  