uses

  Androidapi.Helpers,

  Androidapi.JNI.GraphicsContentViewText;

procedure TForm2.Button3Click(Sender: TObject);

  function HasPermission(const Permission: string): Boolean;

  begin

    Result := SharedActivityContext.checkCallingOrSelfPermission(StringToJString(Permission)) = TJPackageManager.JavaClass.PERMISSION_GRANTED

  end;

begin

  // Bluetooth蓝牙通讯

  if HasPermission('android.permission.BLUETOOTH') then

    ShowMessage('有Bluetooth的通信使用权限')

  else

    ShowMessage('没有使用蓝牙的通信权限');

  // Bluetooth設定変更

  if HasPermission('android.permission.BLUETOOTH_ADMIN') then

    ShowMessage('有变更蓝牙设定的权限')

  else

    ShowMessage('没有修改蓝牙设置的权限');

end;

记得给蓝牙权限。