anchor.diff:    FIocpEngine.SafeStop(); 
   end;
   
  -procedure TDiocpUdp.WSASendTo(const ToAddr: TSockAddrIn; buf: Pointer;
  -  len: Cardinal; CopyBuf: Boolean);
  +function TDiocpUdp.WSASendTo(const ToAddr: TSockAddrIn; buf: Pointer; len:
  +    Cardinal; CopyBuf: Boolean = true): Boolean;
   var
     lvRequest:TDiocpUdpSendRequest;
   begin
  
positive.code: 
  end;
  
  procedure TDiocpUdp.RegisterSessionClass(pvClass:TDiocpUdpSessionClass);
  begin
    FSessionClass := pvClass;
  
negative.code: begin
    FEnable := true;
    FRawSocket.CreateUdpOverlappedSocket();
    if not FRawSocket.Bind(FHost, FPort) then
    begin
      RaiseLastOSError;
    end;
  end;
  
  procedure TDiocpUdpListener.Stop;
  