Delphi - Problemas con SelectDirectory

Estoy usando la function SelectDirectory. Como puedo hacer para que salga el arbol expandido y seleccionado en la carpeta que yo desee?alguien sabe como se hace esto con un shelltreeview?

Mil gracias

porque no descargas aqui http://homepages.borland.com/jedi/jvcl la libreria JVCL q contiene un componente llamado SelectDirectory q lo puedes personalizar ajustando propiedades, tiene el mas potente componente BrowseForfolder tamlbien..