var
additem :Tlistitem;
i :integer;
begin
//你选择了。多行可以选择的。
if listview1.items.count=0 then exit;
if listview1.SelCount=0 then exit;
for i:=0 to listview1.Items.Count-1 do
begin
if listview1.Items.Selected then
begin
additem:=listview2.items.add;
additem.Caption:=listview1.Items.caption;
additem.SubItems.Add(listview1.Items[0].SubItems[有多少个家多少个了（用循环也可以）])
end;
end;
listview.selected.delete;
end;
就可以了。
假如没有多行则，直接用
if listview1.items.count=0 then exit;
if listview1.SelCount=0 then exit;
additem:=listview2.items.add;
additem.Caption:=listview1.selected.caption;
additem.SubItems.Add(listview1.selected.SubItems[有多少个家多少个了（用循环也可以）])
listview.selected.delete;
(记得SubItems是从0开始的)
