Borrar varios elementos de un TreeView

[annieruci]

Hola a todos tengo el siguiente problema:
Tengo dos treeview y 2 botones, lo que me hace falta hacer es seleccionar un hijo del treview1 y que cuando doy al boton se pasen para el treview2, para 1 solo elementos todo muy feliz, pero si me seleccionan mas de uno por ejemplo 2 elementos me da que se va de rango.

Código Delphi [-]
procedure TForm1.SpeedButton1Click(Sender: TObject);
var
  cant: Integer;
  i: Integer;
begin
Seleccionados := TStringList.Create;
cant := TreeView1.SelectionCount;
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].Destroy;
      Dec(cant);
     end;
     if cant = 0 then
       Break;
    end;
end;

Aqui esta todo el codigo el error ocurre a partir de que borro los elementos del treeview1, si no lo borro me los copia bien y todo pero si no me da error de rango o me borra el que no es.

Saludos