Delphi 10.4.2拍照遇到的新問題

今天發現，拍照功能，直接返回，app就崩潰了！正常拍照沒有問題：

procedure TCustomListViewCameraDoc.actCameraExecute(Sender: TObject);
var
  Service: IFMXCameraService;
  Params: TParamsPhotoQuery;
begin
  inherited;
  if TPlatformServices.Current.SupportsPlatformService(IFMXCameraService, Service) then
  begin
    Params.Editable := False; // 拍完照是否允許編輯
    // Specifies whether to save a picture to device Photo Library
    Params.NeedSaveToAlbum := False; // 是否保存到系統相冊
    Params.RequiredResolution := TSize.Create(2000, 2000); // 拍照大小，每張照片有固定寬高比例，系統會自動處理，給它一個想要的大約值就行。
    Params.OnDidFinishTaking := CameraActionDidFinishTaking; // 拍完照后觸發的事件
    Params.OnDidCancelTaking:=CameraActionDidCancelTaking;
    Service.TakePhoto(nil, Params); // 打開相機，開始拍照
  end

看上面代碼，接管了OnDidCancelTaking，問題解決！實際上CameraActionDidCancelTaking，什么也沒做。

procedure TCustomListViewCameraDoc.CameraActionDidCancelTaking;
begin

end;

這得算bug.