Como ya te comente en otro hilo las memorias usb, al menos la mayoría, están marcadas como "removibles". Así que para encontrarla podemos hacer algo como esto:
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;
Aunque también seria interesante detectar cuando se conecta o desconecta una memoria. Esto lo hacemos de forma similar a como lo haríamos con un cdrom, además el propio evento ya nos informaría de la letra de la unidad.
El compañero roman explica como hacer esto en su pagina:
http://romansg.net/index.php?pg=cdchange
Y aquí hilo en el que hablamos sobre el tema:
http://www.clubdelphi.com/foros/showthread.php?t=31486