ShellBrowser Delphi Components Documentation
ContentsIndexHome
Example

To check, if the folder has been successfully selected, you can use code like this:

try
ShellTree.SelectedFolder := aPath;
except
ShowMessage('Not Found: ' + aPath);
end;