Здравствуйте! Я использую стандартный алгоритм инициализации TVideoCaptureDevice. [Code]const M_LAUNCH_CAMERA = WM_APP + 450; type TCamSF1 = class(TForm) ... protected procedure LaunchCamera(var Message: TMessage); message M_LAUNCH_CAMERA; ... end; ... procedure TCamSF1.LaunchCamera(var Message: TMessage); begin if VideoCamera = nil then begin VideoCamera := TCaptureDeviceManager.Current.DefaultVideoCaptureDevice; if VideoCamera <> nil then ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=82984