Delphi - Expandir Treeview

Tengon un treeview para mostrar en el arbol de directorios de mi maquina. Como puedo expandirlo desde el codigo y que se marque en azul un directorio determinado?

Gracias mil

Si mal no recuerdo, cada nodo tiene un metodo que es EXPAND y uno que es COLLAPSE.
Luego (no me acuerdo si es de lectura solamente, o de lectura-escritura. si es read only no funciona lo q te voy a decir), para ese mismo nodo, elegis uno de sus nodos hijos mediante el indice correspondiente (el indice lo elegis vos :s, o lo obtener con algun metodo).

treeview1.selected (o era selecteditem?) := nodoquesea.items[indiceqsea]

se supone q ese nodoquesea sera una variable del tipo TTreeNode, que obtendras en ella algun nodo que sera con el que estas trabajando.