Weg zum selektiertem Node

[jbg]

Du gehst einfach alle Parents durch:

Code:

var
  S: string;
  N: TTreeNode;
begin
  ...
  N := SelectedTreeNode;
  S := '';
  while N <> nil do
  begin
    S := N.Caption + '\' + S;
    N := N.Parent;
  end;
  Delete(S, Length(S), 1); // überzähliges '\' entfernen
  ...
end;