Gracias roman si funciono. Yo lo estaba intentando parecido pero solo lograba tomar los ultimos dos jeje veo que lo que me faltaba era lo siguiente
Código Delphi
[-]
while Assigned(Nodo.Parent) do
begin
Nodo := Nodo.Parent;
Ruta := Nodo.Text+ '\' + Ruta;
end;
Muchas gracias.