[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;

Помог?