Capturar imagenes con WebCam y Delphi 11 Alexandria

[trex2000]

Gracias por sus respuestas.

Probe el proyecto que me pusiste para descargar y probar Neftali y me sale el error:

"Incompatible types: PAnsiChar and PWideChar"

En la unidad uWebCam.

Código Delphi [-]
procedure WebcamList;
var
  x:cardinal;
  names: string;
  Descriptions: string;
begin
  for x := 0 to 9 do begin
    setlength(Names,256);
    setlength(Descriptions,256);
    if not capGetDriverDescriptionA(x,pchar(Names),256,pchar(Descriptions),256) then continue; //En esta linea marca el error.
    if length(Names) > 0 then
      FormMain.combobox1.Items.Add(inttostr(x)+' '+names);
    end;
end;