anchor.diff:      except
       end;
     finally
  +    AddDebugStrings(Format('*(%d):(%d:objAddr:%d)->,%s',
  +      [FReferenceCounter, Self.SocketHandle, IntPtr(Self), 'InnerCloseContext:Ƴб']));
       FOwner.RemoveFromOnOnlineList(Self);
  -    AddDebugStrings(Format('*(%d),%s', [FReferenceCounter, 'InnerCloseContext:Ƴб']));
  +
     end;
   end;
   
  
positive.code:       FContextDNA := FOwner.RequestContextDNA;
        FActive := true;
        FOwner.AddToOnlineList(Self);
        InnerAddToDebugStrings(Format('[%s]*(*):(%d),%s',
          [NowString, FReferenceCounter, 'DoConnected:ӵб']));
  
  
        if self.LockContext('onConnected', Self) then
  
negative.code: end;
  
  procedure TDiocpCustom.AddToOnlineList(pvObject: TDiocpCustomContext);
  var
    i:Integer;
  begin
    FLocker.lock('AddToOnlineList');
    try
      FOnlineContextList.Add(pvObject.FSocketHandle, pvObject);
      i := FOnlineContextList.Count;
    finally
      FLocker.unLock;
    end;
  
    if DataMoniter <> nil then
    begin
      DataMoniter.CalcuMaxOnlineCount(i);
    end;
  end;
  
  function TDiocpCustom.CheckTimeOutContext(pvContext:TDiocpCustomContext;
  