Index: VerpakkingsDefinitie/UI/ProductDetailScherm.pas
===================================================================
diff -u -r599 -r600
--- VerpakkingsDefinitie/UI/ProductDetailScherm.pas	(.../ProductDetailScherm.pas)	(revision 599)
+++ VerpakkingsDefinitie/UI/ProductDetailScherm.pas	(.../ProductDetailScherm.pas)	(revision 600)
@@ -32,6 +32,7 @@
     procedure ListViewVerpakkingenSelectItem(Sender: TObject; Item: TListItem; Selected: Boolean);
     procedure ButtonNieuweVerpakkingClick(Sender: TObject);
     procedure ButtonDupliceerVerpakkingClick(Sender: TObject);
+    procedure ButtonVerwijderVerpakkingClick(Sender: TObject);
   private
     FProductsContextSubject: TSubject;
     FProductsContextSubjectObserver: TSubjectObserver;
@@ -104,6 +105,14 @@
   VerwerkAgentVerpakkingCall();
 end;
 
+procedure TFormProductDetail.ButtonVerwijderVerpakkingClick(Sender: TObject);
+begin
+  FProductsAgent.VerwijderVerpakking(ApplicationContext.ProductVerpakkingContext.GeselecteerdeVerpakking,
+    ApplicationContext.UserContext, ApplicationContext.ProductVerpakkingContext);
+
+  VerwerkAgentVerpakkingCall();
+end;
+
 procedure TFormProductDetail.VerwerkAgentVerpakkingCall();
 var
   ErrorMessage: string;
@@ -167,6 +176,8 @@
       FVerpakkingenContextSubjectObserver.Enabled := true;
     end;
 
+    UpdateVerpakkingControlsEnableStatus();
+
     Navigator.NavigeerNaar(NAVTOONPRODUCTVERPAKKING);
   end;
 end;