高分求助，望高手前来支助！ ( 积分: 100 )

现在我想做一个测试，但我试了好久都没有成功，望各位指点，我想的要求如下：
1：在TreeView控件中，如果我选中某个节点,如果是父节点则把其子结点加到List类中，如果该节点没有父结点，则只将选中的节点加到List中
2：如果没有选怿任一节点，则把该TreeView的所有节点全部加到List中，并且在List中的位置按照TreeView的显示位置进行排列，这是为接下来的要示所要做的
3：再将List中的内容显示在DBGrideh或者Memo控件中.

procedure AddNodeToList(ATreeView: TTreeView; AList: TList);
procedure AddChildren(RootNode: TTreeNode);
var
ANode: TTreeNode;
begin
if RootNode = nil then Exit;
AList.Add(ANode);
ANode := RootNode.getFirstChild;
while ANode <> nil do
begin
if ANode.HasChildren then AddChildren(ANode);
ANode := ANode.getNextSibling;
end;
end;
begin
AddChildren(ATreeView.Selected);
end;

delphi群:23981160,爱好d的都来