if SelectDirectory(a, [sdAllowCreate, sdPerformCreate, sdPrompt], 1000) then...
Я не понял Вашего вопроса, но всё же Вам на него отвечу!