anchor.diff:  
       procedure DoSetCtxState(const state:Integer);
   
  -    // Ƿִйر
  -    function CheckCloseContextBk: Boolean;
     private
       FDebugLocker:Integer;
       FOnRecvingFlag:Byte;
  
positive.code:       SetCurrentThreadInfo('InnerCloseContext - 1.3');
        {$ENDIF}
        try
        
          DoNotifyDisconnected;
  
          if (FOwner<> nil) and (FOwner.FDataMoniter <> nil) then
  
negative.code:   Result := (FLastActivity <> 0) and (tick_diff(FLastActivity, GetTickCount) > Cardinal(pvTimeOut));
  end;
  
  procedure TDiocpCustomContext.CheckKickOut(pvTimeOut:Integer);
  begin
    if CheckActivityTimeOut(pvTimeOut) then
  