hola amigo rod203 este codigo te sirve para dectectar las memorias usb una ves dectectada puedes indicarle todo lo que quieres hacer por medio de la letra que se le asigne a la usb tambien lo puedes modificar a tu gusto
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;