Permissions Sorunu [Çözüldü]

[0x1dot]

Merhabalar delphide yeniyim hatanın sebebi konusunda hiç bir fikrim yok ancak çözümü buldum.
C:\Users\Public\Documents\Embarcadero\Studio\22.0\Samples\Object Pascal\Mobile Snippets\CameraComponent\uMaim.pas dosyasında çözüm mevcut çalıştırmak istediğim kodu biraz modladım ve başarılı.

procedure TForm1.FormCreate(Sender: TObject);
begin
 ReadPermission := JStringToString(TJManifest_permission.JavaClass.READ_EXTERNAL_STORAGE);

      if not PermissionsService.IsPermissionGranted(ReadPermission) then
      begin
               PermissionsService.RequestPermissions([ReadPermission],ReadPermissionRequestResult);
      end;
end;
 
procedure TForm1.ReadPermissionRequestResult(Sender: TObject; const APermissions: TClassicStringDynArray; const AGrantResults: TClassicPermissionStatusDynArray);
begin
  if (Length(AGrantResults) = 1) and (AGrantResults[0] = TPermissionStatus.Granted) then
       begin

       end
       else begin
       
       end;
end;