anchor.diff:  
     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;
   
  
positive.code:     end;
    end;
  
    FRawSocket.close;
    FRawSocket.Free;
  
  
  
negative.code:     // Ƿִйر
      function CheckCloseContext: Boolean;
    private
      // ر¼
      FCloseRequest:TIocpActionRequest;
      FReqDisFlag:Integer;
      procedure PostCloseRequest;
      procedure OnCloseRequestResponse(Sender: TObject);
    private
      {$IFDEF DIOCP_DEBUG}
      FCheckThreadInDebugInfo:String;
      FDebugLocker:Integer;
  