anchor.diff:  {$ENDIF}
   begin
   {$IFDEF POSIX}
  -  // not test
  +  // δ
     FD_ZERO(lvFDSet);
     _FD_SET(FSocketHandle, lvFDSet);
   
  
positive.code: function TRawSocket.SetSendTimeOut(const pvTimeOut: Cardinal): Integer;
  begin
  {$IFDEF POSIX}
    // not test
    Result := setsockopt(FSocketHandle,
     SOL_SOCKET, SO_SNDTIMEO, pvTimeOut, SizeOf(Cardinal));
  {$ELSE}
  
negative.code:   begin
      s := '0.0.0.0';
    end;
    // δ
    FSockaddr.sin_addr.s_addr :=inet_addr(MarshaledAString(UTF8Encode(s)));
    Result := Posix.SysSocket.Bind(FSocketHandle, sockaddr(FSockaddr), sizeof(sockaddr_in))  = 0;
  end;
  
  procedure TRawSocket.Close;
  