Delphi XE7でAndroidのBluetoothが有効か無効かを調べるコード。
uses
Androidapi.JNI.Bluetooth;
procedure TForm2.Button1Click(Sender: TObject);
var
Adapter: JBluetoothAdapter;
begin
Adapter := TJBluetoothAdapter.JavaClass.getDefaultAdapter;
if Adapter.isEnabled then
ShowMessage('Bluetoothは有効です。')
else
ShowMessage('Bluetoothは無効です。');
end;