Foro de programacion

Hola, "Yo y los Nodos"..... Tengo un Treeview de esta Forma:

Familia1
... Papa1
........Hijo11
...Mama1
........Hijo12
........Hija13
........Hija14

Familia2
...Papa2
........Hijo21
........Hijo22
...Mama2
........Hija23
.............Nieto22

procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);
var
pNodo: TTreeNode;
begin
case pNodo.Index of
0: Label1.Caption:='Familia Nº1';
1: Label1.Caption:='Familia Nº2'
else
Label1.Caption:='Otra Familia'
end;
end;

Disculpen lo ignorante en las preguntas, pero es la primera vez que toco este Componente.
¿Como accedo a cada nodo individualmente? Me interesa mas entrar a los SubItems y "hacer algo".
Con el código de arriba, por ejemplo, cuando selecciono:
"Familia1" me muestra: 'Familia Nº1' ¡Correcto!
"Familia2" me muestra: 'Familia Nº2' ¡Correcto!

Pero, cuando selecciono.......
"Papa2" me muestra: 'Familia Nº1' ¡¡Lo mismo!!?
"Hija23" me muestra: 'Familia Nº1' ¡¡Lo mismo!!?
ó
"Hijo11" me muestra: 'Familia Nº1' ¡¡Lo mismo!!?
"Hijo13" me muestra: 'Familia Nº2' ¡¡Lo mismo!!?
"Hija14" me muestra: 'Otra Familia'

"Nieto22" me muestra: 'Familia Nº1' ¡¡Lo mismo!!?

En concreto, necesito acceder individualmente tanto a los Items como a los SubItems por separado y que luego realicen cierta Acción, PARA MI la palabra NODO en Delphi es NUEVA. Agradeceré vuestra colaboración, o sugerir alguna dirección de ejemplos sobre Nodos y SubItems por favor.
Saludos
Deiv