请问在DELPHI中怎么显示目录选择对话框？

我用SHBrowseForFolder和SHGetPathFromIDList两个函数在VB中试验成功，但在Delphi中弄不出来，执行SHBrowseForFolder后，没有对话框显示出来，估计是参数BrowseInfo结构中的类型不对，我不知道结构体中的参数对应于Delphi中什么类型，希望各位帮忙，最好能写出完整代码，谢谢！