1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

procedure TForm1.Verarbeiten;
var
  i : integer;
begin
  for i:=0 to Form1.Listview1.Items.Count-1 do
  begin
    if Listview1.Items[i].Checked then
    begin
      Listview2.AddItem(Listview1.Items[i].Caption, Self);
    end;
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;           //ListView füllen
begin
  ListView1.AddItem('A', self);
  ListView1.AddItem('B', self);
  ListView1.AddItem('C', self);
  ListView1.AddItem('D', self);
  ListView1.AddItem('E', self);

  for i := 0 to ListView1.Columns.Count - 1 do
  begin
    ListView1.Items[0].SubItems.Add('A' + IntToStr(i));
    ListView1.Items[1].SubItems.Add('B' + IntToStr(i));
    ListView1.Items[2].SubItems.Add('C' + IntToStr(i));
    ListView1.Items[3].SubItems.Add('D' + IntToStr(i));
    ListView1.Items[4].SubItems.Add('E' + IntToStr(i));
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  i, j: Integer;          //ListView1 in ListView2 kopieren
begin
  for i := 0 to ListView1.Items.Count - 1 do
    if ListView1.Items[i].Checked then
      ListView2.AddItem(ListView1.Items[i].Caption, self);

  for i := 0 to ListView2.Items.Count - 1 do
    for j := 0 to ListView2.Columns.Count - 1 do
      ListView2.Items[i].SubItems.Add(ListView1.Items[i].SubItems[j]);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

var
  i  : integer;
  li : TListItem;
begin
  lv2.Items.Clear;
  lv2.Items.BeginUpdate;

  with lv1 do
    for i := 0 to Items.Count - 1 do
      if(Items[i].Checked) then begin
        li          := lv2.Items.Add;
        li.Caption  := Items[i].Caption;
        li.SubItems := Items[i].SubItems;
      end;

  lv2.Items.EndUpdate;
end;					

1:

li.SubItems := Items[i].SubItems;					

1:

li.SubItems.Assign(Items[i].SubItems);