BCB中实现带新建文件夹的文件夹浏览的控件或者代码

就是要实现如图中所示这样的效果。事先搜过， if (SelectDirectory("请选择目录","",Path))这个方法没有新建文件夹的功能。
各位大哥大姐帮小弟一把，感激不尽啊！

[解决办法]
已经解决了
[解决办法]
学会搜索，学会学习。Google一下，你就了解，百毒一下，你就被骗。