Delphi Android READ_PHONE_STATE未触发

<uses-permission android:name="android.permission.READ_PHONE_STATE" />

uses
  Androidapi.JNI.Os,
  Androidapi.JNI.GraphicsContentViewText,
  Androidapi.Helpers,
  Androidapi.JNI.JavaTypes,
  Androidapi.JNI.Telephony;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if TPermissions.CheckPermission('android.permission.READ_PHONE_STATE') <> TPermissionStatus.Granted then
  begin
    TPermissions.RequestPermissions([TJManifest_permission.JavaClass.READ_PHONE_STATE], procedure(const APermissions: TArray<string>; const AGrantResults: TArray<TPermissionStatus>)
    begin
      if (Length(AGrantResults) = 1) and (AGrantResults[0] = TPermissionStatus.Granted) then
      begin
        // 权限已授予，可以执行相关操作
      end
      else
      begin
        // 权限未授予，无法执行相关操作
      end;
    end);
  end
  else
  begin
    // 权限已授予，可以执行相关操作
  end;
end;