Delphi XE7でAndroidのBluetoothを有効にするように促すコード。 uses Androi…