Лидеры

Замените у себя модуль FMX.Media.Android.pas (файлик прилагаю) смотрите в нем новые свойства и процедуры property VideoWidth: Integer read FVideoWidth write FVideoWidth; property VideoHeight: Integer read FVideoHeight write FVideoHeight; property VideoBitCount: Integer read FVideoBitCount write FVideoBitCount; property VideoFPS: Integer read FVideoFPS write FVideoFPS; // auto constructor TAndroidVideoCaptureDevice.Create(const AManager: TCaptureDeviceManager; const ADefault: Boolean); procedure TAndroidVideoCaptureDevice.SetQuality(const Value: TVideoCaptureQuality); procedure TAndroidVideoCaptureDevice.DoStartCapture; допустим на форме fmMain есть компонент камеры ccMain_Camera, тогда предварительно выключим камеру если она включена fmMain.ccMain_Camera.Active := False; затем меняем "качество" fmMain.ccMain_Camera.Quality := TVideoCaptureQuality.MediumQuality; {включит 640*480} затем включаем камеру fmMain.ccMain_Camera.Active := True; типа так можно. FMX.Media.Android.zip З.Ы. и в OnSampleBufferReady надо обрабатывать уже полученное изображение, а не пытаться переключать камеру. P.P.S. это под XE7

TPopup - это "заготовка" для создания соответствующих компонентов. PopupMenu можно вызвать так: procedure TForm1.Button1Click(Sender: TObject); var P: TPointF; begin P := (Button1 as IControl).LocalToScreen(Button1.LocalRect.TopLeft); PopupMenu1.PopupComponent := Button1; PopupMenu1.Popup(P.X, P.Y + Button1.Height); end;