permision_req_update.pas

procedure TFrmMain.FormCreate(Sender: TObject);
begin

  {$IFDEF IOS}
    if NotificationCenter1.AuthorizationStatus <> TAuthorizationStatus.Authorized then begin
      NotificationCenter1.RequestPermission;
    end;
  {$ENDIF}
  {$IFDEF ANDROID}
    if NotificationCenter1.AuthorizationStatus <> TAuthorizationStatus.Authorized then begin
      NotificationCenter1.RequestPermission;
    end;

    if PermissionsService.IsPermissionGranted('android.permission.POST_NOTIFICATIONS') <> True then begin
      PermissionsService.RequestPermissions(['android.permission.POST_NOTIFICATIONS'],
        procedure(const APermissions: TClassicStringDynArray; const AGrantResults: TClassicPermissionStatusDynArray)
        begin
          if AGrantResults[0] <> TPermissionStatus.Granted then
            ShowMessage('Please enable notifications for EMA reminders');
        end
      );
    end;
  {$ENDIF}

end;