procedure TFrmzhiywh.SpeedButton1Click(Sender: TObject);
var  ListItem: TListItem;
begin
  with listview2 do
  begin
    for i:=0 to ListView1.Items.Count -1 do
    begin
      if listview1.Items[i].Checked then
      begin
        ListItem:=Items.Add;
        listitem.Caption:=listview1.Items[i].Caption;
        listitem.SubItems.Add(listview1.Items[i].SubItems[0]);
      end;
    end;
  end;
end;照此方法就可以!!