Hola de nuevo, ¿que error te da? debes comenzar a eliminar desde el ultimo que has seleccionado, para que no te de error de indices que no existen porque ya se ha eliminado.
El problema que veo en el codigo que he puesto, es esta linea:
Código Delphi
[-]
TreeView2.Items.AddChild( nil, TreeView1.Items[i].Text);
se debe cambiar por esta:
Código Delphi
[-]
TreeView2.Items.AddChild( nil, TreeView1.Selections[i].Text);
ademas de controlar cuando se quiere borrar un item que tiene subitems.
Saluditos