szDisplayName でググったらでてきますた
http://forum.nifty.com/fdelphi/samples/01432.html

 ∫,,,,,,,,,∧,,∧  ホワワ
⊂,,,,,,,,,つ,,゚Д゚ミつ >>221さん、夜遅くにありがおう。

function IsFDDrive(const ADrive: Char): Boolean;

これかしら?

Pos(' FD (', UpperCase(fi.szDisplayName)) > 0

なるほ・・・