yo utilizo este codigo para tales fines solo debes ajustarlo a tus necesidades
Código Delphi
[-]var
Letra: Char;
begin
for Letra:= 'C' to 'Z' do
if GetDriveType(Pchar(Letra+':\')) = DRIVE_REMOVABLE then
begin
ShowMessage('Esto es una memoria usb '+Letra+':\');
end;
end;