title: Problems with TVideoImage
body: <p>I'm problems with TvideoImage, I use to capture image from webCam. I have a Timage and I set using <code>fVideoImage.setDisplayCanvas(imgCamera.canvas)</code>, the first runs cool, but when I try open again, no longer works. The Image is white.</p>
  
  <pre><code>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);&gt;&gt;
  
         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;
  </code></pre>
  
  <p>The Image is white. Even when i give free at all, i don't know because it occurs, please help me.</p>