TCamera Component Çalışmıyor

[pro_imaj]

Merhaba;
Basit bir örnek üzerinden sorunu anlatmk istiyorum;

Forma 2 adet button ve 1 adet Tcamera componenti ile 1 adet Timage nesnesi ekliyorum.

Button 1 Camerayı aç

procedure TForm1.btnTrueClick(Sender: TObject);
begin
 CameraComponent.Active := True;
end;

Button 2 kameradaki son görüntüyü al kamerayı kapat

procedure TForm1.btnFalseClick(Sender: TObject);
begin
CameraComponent.Active := False;
//Image1.Bitmap.Assign(imgCameraView.Bitmap);
end;

Camera Component image nesnesine son rersmi yaz.

procedure TForm1.CameraComponentSampleBufferReady(Sender: TObject;
 const ATime: TMediaTime);
begin
 TThread.Synchronize(TThread.CurrentThread, GetImage);
end;

Yukarıdaki kod birçok platformda sorunsuz çalışıyorken
Windows 10 mini tablette çalışmıyor ve hatada vermiyor.
Normalde button1 basıldığında kamerada görüntü image nesnesine gelmesi gerekirkn gelmiyor fakat kameranın ışığı .çalıştığını gösteriyor (yanıyor)
ikinci button ile kameradaki veriyi al dedimde program kilitleniyor yine hata mesajı yok.

Bu konuyu nasıl çözebilirim.

*Windowsun kendi kamera uygulamasında kameranın çalıştığını gözlemliyorum.

Teşekkürler.