Как работать с Web камерой?

Code:

VideoPortal1.PrepareControl('QCSDK',

'HKEY_LOCAL_MACHINE\Software\JCS Programmation\QCSDK', 0);

VideoPortal1.EnableUIElements(UIELEMENT_STATUSBAR, 0, 0);

VideoPortal1.ConnectCamera2;

VideoPortal1.EnablePreview := 1;

Code:

var

BMP: TBitmap;

JPG: TJpegImage;

L: string;

begin

F := 'Photos\test.jpg';

VideoPortal1.StampBackgroundColor := clYellow;

VideoPortal1.StampTextColor := clBlack;

VideoPortal1.StampFontName := 'Arial';

VideoPortal1.StampPointSize := 10;

VideoPortal1.StampTransparentBackGround := 0;

L := Format(' %s - %s ', [DateTimeToStr(Now), Num]);

VideoPortal1.PictureToFile(0, 24, 'Temp.bmp', L);

BMP := TBitmap.Create;

JPG := TJpegImage.Create;

BMP.LoadFromFile('Temp.bmp');

JPG.CompressionQuality := 85;

JPG.Assign(BMP);

JPG.SaveToFile(F);

BMP.Free;

JPG.Free;

end;