Delphi-PRAXiS - Delphi Wechseldatenträger bereit?

Hallo

Ich suche nach einer Funktion mit der man überprüfen kann, ob ein Wechseldatenträger lesebereit ist (z.B. USB-Stick)

Im Moment arbeite ich mit GetLogicalDrives und gehe einfach alle Laufwerksbuchstaben durch und vergleiche diese mit einer vorher erstellten liste, ob ein neuer Laufwerksbuchtstabe durch GetLogicalDrives erkannt wurde. Aber ich finde das ein wenig unschön...außerdem frisst mir das durchscannen der laufwerke unnötig Leistung.
Ich erkene das einstecken eines USB Sticks indem ich die entsprechende Windows Message abfange (DBT_DEVICEARRIVAL) aber zu dem Zeitpunkt ist das Laufwerk noch nicht bereit.

Kennt da Jemand eine Funktion für?

Danke schonmal

Gruß