Задача на деревья(delphi)

[Казанцев Андрей]

Здравствуйте! Помогите пожалуйста решить задачу.

Дано дерево. При добавлении к нему нового узла нужно делать копию ветви, в которую добавляется элемент. Первый элемент этой ветви будет новым корнем. Его нужно связать с той ветвью, в которую не был добавлен элемент. При добавлении следующих узлов поступать аналогично. Таким образом у дерева после каждого изменения появляется дополнительный корень. Нужно сделать так, чтобы в любой момент времени можно было вернуться к любому предыдущему состоянию дерева (для этого нужно выбрать подходящий корень).

Меня интересует процедура копирования узлов дерева и выбора нужного корня

[@lexender]

Используй при переносе дерева в новую ветвь
var
GH : TTreeNode;// Вставка в новую ветвь
Begin
Ссылка на родителя
И вставляй по всей ветви