в сомпоненте Drive (Author-Nazar)уже есть методы:

doCreateVirtualDevice=Создать из папки(имя берется из потока) виртуальный диск с именем DriveName
doDestroyVirtualDevice=Удалить виртуальный диск с именем DriveName