Capturar Imagen Con WebCam

[TiammatMX]

Éste código es ESTUPENDO..., casi logra lo que necesito, excepto que cuando intento tomar una SEGUNDA "fotografía", me arroja éste error..., y lo peor, si después del error deseo cerrar (comando Close; de ObjectPASCAL) me envía el mismo error...

Código Delphi [-]
procedure TfrmPrincV2.btnCapturarClick(Sender: TObject);
var
   PanelDC: HDC;
begin
   if not Assigned(imgVideo.Picture.Bitmap) then
      imgVideo.Picture.Bitmap := TBitmap.Create
   else begin
      imgVideo.Picture.Bitmap.Free;
      imgVideo.picture.Bitmap := TBitmap.Create;
   end;

   with imgVideo do
   begin
      Picture.Bitmap.Height := pnlVisual.Height;
      Picture.Bitmap.Width  := pnlVisual.Width;
      Stretch := True;
   end;

   PanelDC := GetDC(pnlVisual.Handle);
   try
      BitBlt(imgVideo.Picture.Bitmap.Canvas.Handle, 0,0,pnlVisual.Width, pnlVisual.Height, PanelDC, 0, 0, SRCCOPY);
   finally
      ReleaseDC(Handle, PanelDC);
   end;
   
   Camara.SaveAsJPG(imgVideo);
end;

Por cierto, felicidades a CasaCham...

[quini]

Yo tenía el mismo problema en Delphi 7 para Windows 7, lo solucioné dejando sólo la sentencia
Image1.picture.Bitmap := TBitmap.Create;

en el primer if del procedimiento Button2Click

Saludos