Treeview, hvordan får man parent?

if (treeview_armytree.Selected.Count = 0) then 
    begin 
      field_unitname.Lines.Clear; 
      field_unitname.Lines.Add(treeview_armytree.Selected.Text); 
      dbtablename := 
      while (treeview_armytree.Selected.stateindex <> 1) 
      do treeview_armytree.Selected.Parent; 
      showmessage(dbtablename); 
    End; 
  End;

/ZIRON