anchor.diff:  
   procedure TDiocpUdp.Stop;
   begin
  -  FActive := False;
  -  FDefaultListener.Stop();
  -  FIocpEngine.SafeStop(); 
  +  if FActive then
  +  begin
  +    if FIocpEngine.WorkingCount = 0 then
  +    begin
  +      Assert(False);
  +    end;
  +    FDefaultListener.Stop();
  +
  +    /// лر״̬
  +    FActive := false;
  +  end;
  +//  FActive := False;
  +//  FDefaultListener.Stop();
  +//  FIocpEngine.SafeStop();
   end;
   
   function TDiocpUdp.WSASendTo(const ToAddr: TSockAddrIn; buf: Pointer; len:
  
positive.code:   public
      constructor Create(AOwner: TComponent); override;
      destructor Destroy; override;
      procedure LogMessage(pvMsg: string; pvMsgType: string = ''; pvLevel: TLogLevel
          = lgvMessage); overload;
      procedure LogMessage(pvMsg: string; const args: array of const; pvMsgType:
  
negative.code: 
      FSendRequestPool: TSafeQueue;
  
      procedure CheckDoDestroyEngine;
      /// <summary>
      ///   ¼
      /// </summary>
  