[Rc96]

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.