1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

Function GetBaseNode(TN:TTreenode):TTreenode;
begin
  If Assigned(TN.Parent) then Result := GetBaseNode(TN.Parent)
  else Result := TN;

end;

procedure TForm3.Button1Click(Sender: TObject);
begin
  if assigned(Treeview1.Selected) then
     Showmessage(GetBaseNode(Treeview1.Selected).Text);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

function GetDir(Node: TTreeNode): string;
var
  s: string;
begin
   s := Node.Text+ #13#10;
   while Node.Parent <> nil do
   begin
     s    := Node.Parent.Text + #13#10 + s;
     Node := Node.Parent;
   end;
   Result := s;
end;					

1:
2:
3:
4:
5:
6:
7:

Function GetBaseNode(TN:TTreenode):TTreenode;
begin
  Result := TN;
  if Assigned(Result) then
    if Assigned(Result.Parent) then 
      Result := GetBaseNode(Result.Parent);
end;