Delphi XE7でAndroidのBluetoothが有効にするコード。
uses
Androidapi.JNI.Bluetooth;
procedure TForm2.Button2Click(Sender: TObject);
var
Adapter: JBluetoothAdapter;
begin
Adapter := TJBluetoothAdapter.JavaClass.getDefaultAdapter;
if Adapter.enable then
ShowMessage('Bluetoothを有効にしました')
else
ShowMessage('有効にできませんでした');
end;