Ayuda con TreeView

[[Lepe]]

aqui lo tienes

Código Delphi [-]
nodo:TTreenode;
begin
nodo := treeview1.selected;
if assigned(nodo) then //hay un nodo seleccionado,
begin
  showMessage(nodo.text);
  while nodo.parent <> nil do
  begin
     nodo := nodo.parent;
     ShowMessage(nodo.text);
  end;
end;

saludos