Проблемы с TVideoImage

Question

У меня проблемы с TvideoImage, я использую для захвата изображения с веб-камеры. У меня есть Timage и я использую fVideoImage.setDisplayCanvas(imgCamera.canvas), первый работает круто, но когда я пытаюсь открыть снова, больше не работает. Изображение белое.

my code is:
on create:

       fVideoImage := TVideoImage.Create;
       bActivated := False;

       DeviceList := TStringList.Create;
       fVideoImage.GetListOfDevices(DeviceList);
       cbListaCameras.Items := DeviceList;
       DeviceList.Free;

    on power button is:

     procedure TFormCamera.btnLigarClick(Sender: TObject);
     var
       camDevice: string;
     begin
       try
          if not(bActivated)then
          begin
             camDevice := trim(cbListaCameras.Items.Strings[cbListaCameras.ItemIndex]);
             if(camDevice = '')then
             begin
                ShowMessage('Atenção, informe o dispositivo!');
                cbListaCameras.SetFocus;
                Exit;
             end;

             fVideoImage.SetDisplayCanvas(imgCamera.Canvas);
             fVideoImage.VideoStart(camDevice);
             bActivated := True;

             lblCameraStatus.Caption := 'Ligada';
             lblCameraStatus.Font.Color := clGreen;

          end
          else
             MessageDlg('Atenção, camera já está ligada!', mtWarning, [mbOK], 0);>>

       except
          bActivated := False;
          lblCameraStatus.Caption := 'Desligada';
          lblCameraStatus.Font.Color := clRed;
          ShowMessage('Atenção, erro ao tentar ligar a camera!');
       end;
    end;
    On close button is:

       fVideoImage.VideoStop;
       bActivated := false;
       imgCamera.Picture := nil;
       //imgCamera.Picture.Bitmap.Assign(nil);
       Close;

Изображение белое. Даже когда я даю бесплатно, я не знаю, потому что это происходит, пожалуйста, помогите мне.