CameraComponent Quality

  CameraComponent1.Quality := TVideoCaptureQuality.HighQuality;

 

procedure TCameraComponentForm.Set720p;
var
  lset: TArray<TVideoCaptureSetting>;
begin
  CameraComponent1.Quality := TVideoCaptureQuality.CaptureSettings;
  CameraComponent1.CaptureSettingPriority := TVideoCaptureSettingPriority.FrameRate;
  lset := CameraComponent1.AvailableCaptureSettings;
  CameraComponent1.CaptureSetting := lset[0];
end;