Probelm mit der Berechtigung

[RWunderlich]

Hallo Leute

Ich habe wieder mal ein Problem. Ich verfüge über Delphi 10.4 und habe Schwierigkeiten mit der Berechtigung. Auf meinem Mobiltelefon
wird nach dem erfolgreichen Starten der App die Berechtigung "Dateien" nicht angezeigt, obwohl ich die READ_EXTERNAL_STORAGE als Variable im Programm eingebaut habe. Ich habe bereits einige Beispielprogramme ausgeführt.
Die funktionieren einwandfrei. Ausserdem habe ich die App so verändert, wie in einigen Beispiel-Apps dargestellt. Auch das klappt nicht.

Delphi-Quellcode:

procedure TTabbedwithNavigationForm.ASMOpenPermissionRequestResult(Sender: TObject; const APermissions: TArray<string>; const AGrantResults: TArray<TPermissionStatus>);
begin
  PermissionsService.RequestPermissions([FPermissionReadExternalStorage],
    procedure(const APermission: TArray<string>;
      const AGrantResults: TArray<TPermissionStatus>)
      var
        oSearch: TSearchRec;
        OpenStr: String;
        oFind: integer;
    begin
      if (Length(AGrantResults) = 1) and
        (AGrantResults[0] = TPermissionStatus.Granted) then
      begin
      //RiseInt(True, True, True, False);
        BtnSave.Enabled := True;
        BtnErase.Enabled:= True;
        SaveBtn.Enabled := True;
        BtnOpen.Enabled := False;
        // FileListBox löschen
        if OpenFileListBox.Items.Text <> '' then
          OpenFileListBox.Clear;
        OpenStr := lblOpenPath.Text + '/*.*';
        oFind := FindFirst(OpenStr, faAnyFile, oSearch);
        if oFind = 0 then
          repeat
            // Nur .ASM-Dateien darstellen
            if (System.Pos('.asm', oSearch.Name) <> 0) or
              (System.Pos('.ASM', oSearch.Name) <> 0) then
            begin
              OpenStr := oSearch.Name;
              OpenFileListBox.Items.Add(OpenStr);
            end;
          until FindNext(oSearch) <> 0;
        FindClose(oSearch);
        TabControl2.ActiveTab := TabItem7;
      end;
    end);
end;

Dann habe ich noch den Aufruf zum Öffnen für Euch.

Delphi-Quellcode:

procedure TTabbedwithNavigationForm.OpenBtnClick(Sender: TObject);
{ Datei -> Öffnen }
begin
  PermissionsService.RequestPermissions([FPermissionReadExternalStorage], ASMOpenPermissionRequestResult, DisplayRationale);
end;

Ich hoffe auf Eure Hilfe und bedanke mich im Voraus.

RWunderlich