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; if length(Names) > 0 then
FormMain.combobox1.Items.Add(inttostr(x)+' '+names);
end;
end;