Listviev -> ListView

Kiedys juz o to pytałem. Chodzi o przeniesienie zawartosci Listview z jednego do drugiego (ale nie podmienienie). Napisałem takie coś ale nie działa:
<delphi>var
i:integer;
ListItem: TListItem;
begin
ListItem := ListView1.Items.Add;
for i := 1 to ListView1.Items.Count -1 do begin
ListItem.Caption := Listview2.Items[i].Caption;
ListItem.SubItems.Add(Listview2.Items[i].SubItems[0]);
ListItem.SubItems.Add(Listview2.Items[i].SubItems[1]);

end;delphi>

Raczej tak:

var
  i:integer;
  ListItem: TListItem;
begin
  for i := 0 to ListView1.Items.Count -1 do begin
        ListItem := ListView1.Items.Add;
        ListItem.Caption := Listview2.Items[i].Caption;
        ListItem.SubItems.Add(Listview2.Items[i].SubItems[0]);
        ListItem.SubItems.Add(Listview2.Items[i].SubItems[1]);
  end;
end;

Skopiować można tak:
ListView2.Items.Assign(ListView1.Items);