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[];
end;