Pax Beach

Проблема решалась очень просто.
Оказывается нужно при вызове startActivityForResult использовать requestCode отличный от занятых в FMX, я использую REQUEST_IMAGE_CAPTURE = 1001 тогда обработчик сообщений FMX поймет, что сообщение не для него и передаст его в систему. 
 
 

Да, дело было в скринах.
 
«Скриншоты 
Русский – ru-RU – по умолчанию
JPEG или 24-разрядный PNG (без альфа-канала). Минимальная длина стороны: 320 пикс. Максимальная длина стороны: 3840 пикс.
Необходимо предоставить как минимум два скриншота. Для каждого типа устройства можно загрузить не более восьми скриншотов. Перетаскивайте скриншоты в нужное место или к нужному устройству.
Чтобы ваше приложение было добавлено на вкладку "Приложения для планшетов" в Google Play, загрузите хотя бы по одному скриншоту для 7- и 10-дюймовых устройств. Если у вас уже есть скриншоты, переместите их в нужный раздел»
 

На StackOverflow подсказали решение, адаптировал для Delphi (модуль для работы с процессами Android описан здесь):
if TOSVersion.Check(5, 0) then begin TAndroidHelper.Activity.finishAndRemoveTask; Log('- finishAndRemoveTask - OK'); end else if TOSVersion.Check(4, 1) then begin TAndroidHelper.Activity.finishAffinity; Log('- finishAffinity - OK'); end else begin TAndroidHelper.Activity.finish; Log('- finish - OK'); end; TJProcess.JavaClass.killProcess(TJProcess.JavaClass.myPid); Log('- killProcess - OK');  

Мне видится, что твой log будет выводиться только в НЕ режиме отладки.
Я использую функцию без условий компилятора, и она отлично работает и в приложении, и Android сервисе.
procedure Log(const Fmt: string; const Params: array of const); var Msg: string; M: TMarshaller; begin Msg := Format(Fmt, Params); LOGI(M.AsUtf8(Msg).ToPointer); end;  

Согласен с вами со всеми. Инф. безопасность — наше все.
Но есть своя специфика в задаче: нет Windows-машин рядом, в силу распределения полномочий разных служб компании нет доступного веб-сервера в сети, чтобы подвесить прослойку, есть MySQL сервер, который отдали для транзита данных и задача работать с ним напрямую.
Поставленная задача решается, как я описал в топике. Сам бы я проектировал обмен по-другому, но проектирование опишем в другой ветке форума =)

Да, спасибо, получилось, как вы написали.
 
В «FMX.Media.pas» для CameraComponent есть свойство FocusMode с такими вариантами значений.
В приложении доработал пример работы TCameraComponent с возможностью фокусировки камеры.
На моем HTC One фокусировка работает только в значении fmContinuousAutoFocus.
 
procedure RegisterAliases;
begin
  AddEnumElementAliases(TypeInfo(TDevicePosition), ['dpUnspecified', 'dpFront', 'dpBack']);
  AddEnumElementAliases(TypeInfo(TFlashMode), ['fmAutoFlash', 'fmFlashOff', 'fmFlashOn']);
  AddEnumElementAliases(TypeInfo(TFocusMode), ['fmAutoFocus', 'fmContinuousAutoFocus', 'fmLocked']);
  AddEnumElementAliases(TypeInfo(TTorchMode), ['tmModeOff', 'tmModeOn', 'tmModeAuto']);
  AddEnumElementAliases(TypeInfo(TVideoCaptureQuality), ['vcPhotoQuality', 'vcHighQuality', 'vcMediumQuality', 'vcLowQuality']);
  AddEnumElementAliases(TypeInfo(TCameraKind), ['ckDefault', 'ckFrontCamera', 'ckBackCamera']);
end;
 
Мое мнение, компонент TCameraComponent не пригоден пока для промышленной эксплуатации — очень тяжело работает, для примеров разве что.
Решил в проекте использовать Standart Action — TTakePhotoFromCameraAction — стандартная камера устройства сама сделает качественное фото, остается только его обработать.
CameraComponentWith.zip