[Serga]

Другой вопрос: как поменять местами два соседних TreeNode одного уровня?

[SergeNik]

Вот тебе процедура:

Procedure ChangeNodes(Node1, Node2 : TTreeNode);
var s : string;
begin
s := Node2.Text;
Node2.Text := Node1.Text;
Node1.Text := s;
end;

А вот так можешь юзать:

procedure TForm1.Button1Click(Sender: TObject);
begin
ChangeNodes(TreeView1.Items[0].Item[1], TreeView1.Items[0].Item[0]);
end;

Помог?

[Serga]

Я неполно высказал свою мысль, извиняюсь: надо чтоб ещё и соответствующие субитемы перемещались тоже, а не только заголовки. Но всё равно спасибо.