Hola Maria.
Según tengo entendido algunas cámaras funcionan sólo con su propio software, no sé si esto te servirá en ese caso... Pero probá de este modo:
Código Delphi
[-]
procedure GetUSBLeters(TS: TStrings);
var
ch: Char;
begin
for ch:= 'C' to 'Z' do
if GetDriveType(Pchar(ch + ':\')) = DRIVE_REMOVABLE then
TS.Add(ch + ':\');
end;
Llamada ejemplo:
Código Delphi
[-]
GetUSBLeters(ListBox1.Items);
Saludos.