// Способ первый
// С помощью кроссплатформенного сервиса FM
uses
  {...,} FMX.Platform;

function GetLocale: string;
var
  LocaleService: IFMXLocaleService;
begin
  if TPlatformServices.Current.SupportsPlatformService(IFMXLocaleService, IInterface(LocaleService)) then
    Result := LocaleService.GetCurrentLangID;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(GetLocale);
end;

// Способ второй
// С помощью iOS API
uses
  {...,} iOSapi.Foundation, Macapi.ObjectiveC;

function GetLocale: string;
var
  CurrentLocale: NSLocale;
  LanguageISO: NSString;
begin
  CurrentLocale := TNSLocale.Wrap(TNSLocale.OCClass.currentLocale);
  LanguageISO := TNSString.Wrap(CurrentLocale.objectForKey((NSLocaleLanguageCode as ILocalObject).GetObjectID));
  Result := UTF8ToString(LanguageISO.UTF8String);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(GetLocale);
end;

// Способ третий
// Для Android
procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(SysLocale.DefaultLCID);
end;

uses
  {...,} FMX.VirtualKeyboard, FMX.Platform;

procedure TForm1.ShowKeyboard(Obj: TFmxObject; const Show: Boolean);
var
  KeyboardService: IFMXVirtualKeyboardService;
begin
  if TPlatformServices.Current.SupportsPlatformService(IFMXVirtualKeyboardService, IInterface(KeyboardService)) then
     case Show of
        True: KeyboardService.ShowVirtualKeyboard(Obj);
        False: if TVirtualKeyboardState.Visible in KeyboardService.VirtualKeyboardState then
                 KeyboardService.HideVirtualKeyboard;
     end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  // Show
  ShowKeyboard(nil {Edit1}, True);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
   // Hide
   ShowKeyboard(nil, False);
end;

uses
  Androidapi.JNIBridge,
  Androidapi.Helpers,
  AndroidApi.JNI.Media,
  Androidapi.JNI.GraphicsContentViewText,
  Androidapi.JNI.JavaTypes;

type
  TRingerMode = (rmSilent{=0}, rmVibrate{=1}, rmNormal{=2});

function GetRingerMode: TRingerMode;
var
  AudioObj: JObject;
  Audio: JAudioManager;
begin
  AudioObj := SharedActivity.getSystemService(TJContext.JavaClass.AUDIO_SERVICE);
  Audio := TJAudioManager.Wrap((AudioObj as ILocalObject).GetObjectID);

  Result := TRingerMode(Audio.getRingerMode);
end;

procedure SetRingerMode(Mode: TRingerMode);
var
  AudioObj: JObject;
  AudioMng: JAudioManager;
begin
  AudioObj := SharedActivity.getSystemService(TJContext.JavaClass.AUDIO_SERVICE);
  AudioMng := TJAudioManager.Wrap((AudioObj as ILocalObject).GetObjectID);

  case Mode of
    rmSilent: AudioMng.setRingerMode(TJAudioManager.JavaClass.RINGER_MODE_SILENT);
    rmVibrate: AudioMng.setRingerMode(TJAudioManager.JavaClass.RINGER_MODE_VIBRATE);
    rmNormal: AudioMng.setRingerMode(TJAudioManager.JavaClass.RINGER_MODE_NORMAL);
  else
    AudioMng.setRingerMode(TJAudioManager.JavaClass.RINGER_MODE_NORMAL);
  end;
end;

// Переключение режимов
procedure TForm1.Button1Click(Sender: TObject);
begin
  SetRingerMode(rmSilent);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  SetRingerMode(rmVibrate);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  SetRingerMode(rmNormal);
end;

// Получение режима
procedure TForm1.Button4Click(Sender: TObject);
begin
  case GetRingerMode of
    rmSilent: ShowMessage('MODE SILENT');
    rmVibrate: ShowMessage('MODE VIBRATE');
    rmNormal: ShowMessage('MODE NORMAL');
  end;
end;

uses
  Androidapi.Helpers, Androidapi.JNI.Provider,
  Androidapi.JNI.GraphicsContentViewText;

procedure OpenGPSSettings;
{$IFDEF ANDROID}
var
  Intent: JIntent;
{$ENDIF}
begin
  {$IFDEF ANDROID}
  Intent := TJIntent.Create;
  // Аналогично можно вызвать диалог любых системных настроек,
  // нужно только выбрать соответствующее значение из TJSettings.JavaClass
  Intent := TJIntent.JavaClass.init(TJSettings.JavaClass.ACTION_SETTINGS);
  SharedActivity.startActivity(Intent);
  {$ENDIF}
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  OpenGPSSettings;
end;