anchor.diff:    lvContext := FContext;
     if lvContext.incReferenceCounter('InnerPostRequest::WSASend_Start', self) then
     try
  +    if lvContext.FSendQueueSize > 0 then
  +    begin
  +      Assert(lvContext.FSendQueueSize > 0, 'Ͷ߳');
  +    end;
  +    {$IFDEF TRACE_IOCP_SEND}
  +    TByteTools.AppendBufToFile(buf, len, Format('%d_%s.send', [lvContext.SocketHandle, FormatDateTime('hhnn', Now())]));
  +    {$ENDIF}
       AtomicIncrement(lvContext.FSendQueueSize);
       lvRet := WSASend(lvContext.FRawSocket.SocketHandle,
                         @FWSABuf,
  
positive.code: procedure TDiocpCustomContext.DoSendRequestRespnonse(pvRequest:
      TIocpSendRequest);
  begin
    FLastActivity := GetTickCount;
    AtomicDecrement(FSendQueueSize);
  end;
  
negative.code:     FCheckThreadInDebugInfo:String;
      FDebugLocker:Integer;
      {$ENDIF}
      FCheckStartFlag:Byte;
      FOnRecvingFlag:Byte;
      FCloseingFlag:Byte;
      FCloseSocketFlag:Byte;
  