Borrar varios elementos de un TreeView

[annieruci]

actualmente lo he probado todo, ya no se que mas me probar,

Código Delphi [-]
for i:= TreeView1.SelectionCount-1 downto 0 do
     begin
      TreeView2.Items.AddChild( nil, TreeView1.Items[i].Text);
      TreeView1.Selections[i].Delete;
     end;

me mueve el primer elemento siempre, solo el primero aunque marque el 4 me mueve el 1.

Código Delphi [-]
for i := 0 to TreeView1.Items.Count-1 do
   begin
    if TreeView1.Items[i].Selected then
     begin
      TreeView2.Items.AddChild( nil, TreeView1.Items[i].Text);
      TreeView1.Items[i].Delete;
      Dec(cant);
     end;

este es el codigo que estoy probando pero repito que cuando marco dos consecutivos me da el error parece que al borrar una posicion se marea, estoy usando delphi 6 y conexion a Oracle, son dos treeview y un boton que mueve los datos de un lado a otro solo eso,

Saludos