Код:
CLEAR(Shell32);
CREATE(Shell32);
Folder := Shell32.BrowseForFolder(0,'',0);
IF ISCLEAR(Folder) THEN
EXIT;
FolderItem := Folder.Self;
"Path To CreatingFolder" := FolderItem.Path;
Name DataType Subtype Length
Shell32 Automation 'Microsoft Shell Controls And Automation'.Shell
Folder Automation 'Microsoft Shell Controls And Automation'.Folder2
FolderItem Automation 'Microsoft Shell Controls And Automation'.FolderItem
В базовом коде кажется тоже что-то есть.