[Alegun]

Это работает под D7, вероятно в десятке что-то выкинули, тогда попробуйте вот так

Код:

SelectDirectory('Выберите каталог', '::{20D04FE0-3AEA-1069-A2D8-08002B30309D}', a )

т.е. принудительно задайте началкой папку "Мой комп"