Si lo que quieres saber son todos los padres de un nodo, es decir, padre, abuelo, bisabuelo etc. podrías usar un ciclo del estilo:
Código Delphi
[-]
var
NodoPadre: TTreeNode;
begin
NodoPadre := ElNodo.Parent;
while NodoPadre <> nil do
begin
NodoPadre := NodoPadre.Parent;
end;
end;
// Saludos