Einfach mit Parent.Parent. So lange, bis das nil ist.
Code aus einem Programm von mir:
Delphi-Quellcode:
function TFrameUsers.GetChannelPath(Node: TTreeNode): string;
begin
Result := '';
repeat
Result := '/' + Node.Text + Result;
Node := Node.Parent;
until Node.Parent = nil;
Result := '/' + Result;
end;
Das ist für den Fall, dass man das markierte Element drin haben möchte aber das Wurzelelement nicht. Wer etwas anderes will, muss das entsprechend anpassen.