If you do not need the multiplatform functionality then there is the option of using the native Android service interface directly which gives a full user interface with no effort.
Interfaces in unit FMX.MediaLibrary;.
IFMXCameraService = interface
procedure TakePhoto(const AControl: TControl; const ARequiredResolution: TSize; const AEditable: Boolean;
const AOnDidFinishTaking: TOnDidFinishTaking; const AOnDidCancelTaking: TOnDidCancelTaking); overload;
deprecated 'Use the similar method with another parameters';
procedure TakePhoto(const AControl: TControl; const AParams: TParamsPhotoQuery); overload;
end;