TreeView - ID auslesen

[Ayumi]

Ich habe einen TreeView der folgendermaßen aussieht:

Handy1
--Reihe9000
----Modell1
----Modell2
----Modell3
--Reihe7000
----Model1
----Model2
Handy2
etc.

Hinter jeder TreeNode ist die ID als Objekt gespeichert.

Wenn ich auf Modell 3 klicke, soll die ID von Modell3, ID von Reihe und ID von Handy ausgelesen werden.
Bis Reihe funktioniert es wunderbar, aber ich kann die ID von Handy nicht auslesen.

Delphi-Quellcode:

  for k:= 1 to TreeNode.Level do begin
    TreeNode := TreeNode.Parent;
    edit1.Text := pNode_rec(TreeNode.Item[treenode.Index].Data)^.ID;
  end;

Wenn ich aber auf handy draufklicke und
edit1.Text := pNode_rec(trvw_Handy.Selected.Data)^.ID; ausführe, funktioniert es wunderbar.

Hat jemand eine Idee wie ich in meiner Schleife die ID von Handy auslesen kann?

Vielen Dank im Voraus
Ayumi