CameraComponent1.Quality := TVideoCaptureQuality.HighQuality;

 

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