Связать Tshelltreeview и Tshelllistview Опции

[volvo]

Вопрос, собственно, вот в чем: у меня на форме лежит TShellTreeView, и к его свойству Path привязан TShellListView, то есть по событию TShellTreeView.OnChange делается:

ShellListView1.Root := ShellTreeView1.Path;

Все бы ничего, даже работает. До тех пор, пока я не кликну, например, на "My Computer" или "Control Panel". В этом случае мне ShellListView радостно сообщает, что "не может установить путь", т.к. в этом случае Path вернет не путь, а название выбранного пункта. Вот, собственно, и вопрос... Что делать? Есть ли какой-нибудь способ связать два этих компонента, чтобы можно было переходить в любую папку?

(пока решил эту проблему, вызывая SHGetSpecialFolderLocation для каждой системной папки, и сравнивая ее название с тем, что возвращает TShellTreeView.Path, но это что-то не очень мне нравится - циклом бегать по всем системным папкам... Неужели нет ничего более красивого???)

[hardcase]

Через ObjectInspector:

Код

ShellTreeView1.ShellComboBox:=ShellComboBox1;
ShellTreeView1.ShellListView:=ShellListView1;
ShellComboBox1.ShellListView:=ShellListView1;
ShellComboBox1.ShellTreeView:=ShellTreeView1;

[volvo]

А я зачем-то велосипед изобретать начал... Спасибо...