Delphi - Expandir un ttreeview y mostrar el nodo visualizad

Tengo un treeview que quiero expandir y que se quede mostrando el nodo que tengo viendose antes de expandir. He probado así, pero no funciona:

NodoSeleccionado:=TreeView1.Selected.Index;

//con esto expando todo el arbol
for i:=0 to TreeView1.Items.Count-1 do
TreeView1.Items[I].Expand(True);

TreeView1.Items[NodoSeleccionado].Selected:=true;

¿Como puedo hacerlo? Lo estoy intentando con el nodo seleccionado ya que creo que resultará más sencillo, aunque me vendría mejor que no hiciera falta seleccionarlo. Lo ideal sería que fuera el primero que estoy viendo en el treeview, aunque sea el item 4.

Muchas gracias.

Hola

en el codigo.
TreeView1.FullExpand;

'deja esta opcion en true si quieres que se expanda solo lo que seleccionas
de lo contrario dejalo en false.
TreeView1.AutoExpand:=true;

espero que sea esto lo q necesitas..

Saludos.

Ya lo he resuelto. He utilizado esto:

NodoSeleccionado:=TreeView1.Selected.AbsoluteIndex;

y al final, para seleccionarlo:

TreeView1.Selected:= TreeView1.Items[NodoSeleccionado];

Muchas gracias Ariel. Lo que me proponías no era lo que necesitaba pero agradezco tu aportación.

Gracias.