+procedure TFavoriteAddDialog.CopyTree( dst, src : TTreeNode );
+var
+ newNode : TTreeNode;
+begin
+ while src <> nil do begin
+ if TObject( src.Data ) is TFavoriteFolder then begin
+ newNode := FolderTreeView.Items.AddChildObject( dst, src.Text, src.Data );
+ newNode.ImageIndex := src.ImageIndex;
+ newNode.SelectedIndex := src.SelectedIndex;
+ CopyTree( newNode, src.getFirstChild );
+ end;
+ src := src.getNextSibling;
+ end;
+end;
+