delphi 控制摄像头 无驱摄像头视频显示区黑屏无显示

我用网上流传的用delphi 控制摄像头做了试验，对有驱动的摄像头能正常显示视频，但对无驱动的摄像头却视频显示区黑屏无显示，请问各位高手，帮我看看是怎么回事，谢谢了。
以下是代码：
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, SUIImagePanel, DB, ADODB, DBCtrls,
SUIDBCtrls;

type
TForm1 = class(TForm)
Button2: TButton;
Button3: TButton;
Button1: TButton;
Image1: TImage;
Image2: TImage;
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
hWndC : THandle;

implementation

{$R *.dfm}

const WM_CAP_START = WM_USER;
const WM_CAP_STOP = WM_CAP_START + 68;
const WM_CAP_DRIVER_CONNECT = WM_CAP_START

无驱摄像头问题！ 无驱摄像头安装问题。 无驱摄像头无法使用 无驱摄像头的问题 远程控制Delphi源代码 delphi 权限控制问题 电脑插上无驱摄像头后无法开启摄像头，怎么回事？ 怎么试用安装无驱摄像头 无驱摄像头支持老主板吗 无驱摄像头画面变小变慢