Перенос из 1 TListView в другой

procedure TNaklForm.addPackProd(naklProd: TNaklProduct);
var
    Item: TListViewItem;
    Name, Article, Price, Count, Total: TListItemText;
begin
   Item := OrderLV.Items.Add;
 
   Name    := Item.Objects.FindObjectT<TListItemText>('Name');
   Article := Item.Objects.FindObjectT<TlistItemText>('Article');
   Price   := Item.Objects.FindObjectT<TListItemText>('Price');
   Count   := Item.Objects.FindObjectT<TlistItemText>('Count');
   Total   := Item.Objects.FindObjectT<TListItemText>('Total');
 
  try
     Name.Text    := NaklProduct.Name;
     Article.Text := NaklProduct.Article;
     Price.Text   := NaklProduct.CENA_ARTIC;
     Count.Text   := NaklProduct.EDN_V_UPAK;
     Total.Text   := (Count.Text.ToDouble * NaklProduct.CENA_ARTIC.ToDouble).ToString;
   finally
   end;
end;

TNaklProduct - record

procedure TNaklForm.OrderLVItemClick(const Sender: TObject;
  const AItem: TListViewItem);
begin
    ShowMessage(AItem.Data['Name'].AsString  + '  --  ' + ItemLV.Data['Count'].AsString + '  --  ' +
                AItem.Data['Article'].AsString + '  --  ' + AItem.Data['Price'].AsString + ' -- ' +
                AItem.Data['Total'].AsString);
end;

ShowMessage(OrderLV.Tag.ToString);

TIdNameClass = class
public
  Id:integer;
  Name:string;
end;
 
TProduct = class(TIdNameClass)
  ......
end;
 
TProductList=class(TObjectList<TProduct>)
public
  function byId(AId:integer):TProduct;
end;

for i:=0 to Products.Count-1 do
begin
  Item := List.Items.Add;
  Item['ID'] := Products[i].ID;
end;