Index: VerpakkingsDefinitie/UI/ProductDetailScherm.pas
===================================================================
diff -u -r600 -r601
--- VerpakkingsDefinitie/UI/ProductDetailScherm.pas	(.../ProductDetailScherm.pas)	(revision 600)
+++ VerpakkingsDefinitie/UI/ProductDetailScherm.pas	(.../ProductDetailScherm.pas)	(revision 601)
@@ -89,7 +89,7 @@
 
 procedure TFormProductDetail.ButtonNieuweVerpakkingClick(Sender: TObject);
 begin
-  FProductsAgent.NieuweVerpakking(ApplicationContext.ProductVerpakkingContext.ProductVerpakkingen.Count + 1,
+  FProductsAgent.NieuweVerpakking(ApplicationContext.ProductVerpakkingContext.ProductVerpakkingen,
     ApplicationContext.ProductsContext.GeselecteerdProduct, ApplicationContext.UserContext,
     ApplicationContext.ProductVerpakkingContext);
 
@@ -98,8 +98,8 @@
 
 procedure TFormProductDetail.ButtonDupliceerVerpakkingClick(Sender: TObject);
 begin
-  FProductsAgent.DupliceerVerpakking(ApplicationContext.ProductVerpakkingContext.GeselecteerdeVerpakking,
-    ApplicationContext.ProductVerpakkingContext.ProductVerpakkingen.Count + 1, ApplicationContext.UserContext,
+  FProductsAgent.DupliceerVerpakking(ApplicationContext.ProductVerpakkingContext.ProductVerpakkingen,
+    ApplicationContext.ProductVerpakkingContext.GeselecteerdeVerpakking, ApplicationContext.UserContext,
     ApplicationContext.ProductVerpakkingContext);
 
   VerwerkAgentVerpakkingCall();