anchor.diff:      {$IFDEF DIOCP_DEBUG}
       self.CheckThreadOut();
       {$ENDIF}
  +    DoCleanUp;
       // Թ黹
       ReleaseBack;
     end;
  
positive.code: 
      procedure DoSetCtxState(const state:Integer);
  
      // Ƿִйر
      function CheckCloseContextBk: Boolean;
    private
      FDebugLocker:Integer;
      FOnRecvingFlag:Byte;
  
negative.code:   Result := (FLastActivity <> 0) and (tick_diff(FLastActivity, GetTickCount) > Cardinal(pvTimeOut));
  end;
  
  procedure TDiocpCustomContext.CheckKickOut(pvTimeOut:Integer);
  begin
    if CheckActivityTimeOut(pvTimeOut) then
  