Wie kann ich mit Delphi den Laufwerksbuchstaben eines Devices ändern (ggf vorher ermitteln welcher frei ist)?

Mein Problem ist, das wegen eines Fehlers in Windows XP ich zwar in der Datenträgerverwaltung von meinem Smartcard-Gerät den Laufwerksbuchstaben ändern kann, aber es sich bei immer jeden 2. Neustart zurückverstellt, aber ich aus bestimmten Gründen ich es nicht so lassen kann. Deswegen möchte ich es halt selber programmieren, wenn Windows das nicht hinbekommt.