delphi 之选择文件夹/目录路径的函数SelectDirectory

经测试在设计期，如果取消选择会报错，但是执行编译好的exe文件，不会报错。

软件编写的三个时期：设计期，编译期，运行期