Source position: customcamera.pas line 14
type TCustomCameraPictureTaken = procedure(
Sender: TObject;
bitmapPicture: jobject;
fullPath: string
) of object;