关于listview的问题

Question

有两个listview1，listview2，现在任意双击listview1中的某一项或者多项，那么listview1中的该选项到listview2中去，同时将listview1中的该选项删除。下面代码只能实现按顺序添加过去，求解
procedure TForm2.RzListView1DblClick(Sender: TObject);
 var
 i,j :integer;
 listitem:tlistitem;
begin
   j:=RzListView1.SelCount-1;
  for i:=0 to j  do
   if Rzlistview1.Items[i].Selected then
   begin
   listitem:=Rzlistview2.Items.add;
   listitem.Caption:=Rzlistview1.Items[i].Caption;
   Rzlistview1.Items[i].Delete;
  end;
end;

Answer 1

procedure TForm2.RzListView1DblClick(Sender: TObject);
 var
 i:integer;
 listitem:tlistitem;
begin
  for i:=0 to RzListView1.Items.Count-1  do
   if Rzlistview1.Items[i].Selected then
   begin
   listitem:=Rzlistview2.Items.add;
   listitem.Caption:=Rzlistview1.Items[i].Caption;
  end;
  Rzlistview1.DeleteSelected;
end;