Index: VerpakkingsDefinitie/UI/ProductDetailScherm.pas
===================================================================
diff -u -r586 -r587
--- VerpakkingsDefinitie/UI/ProductDetailScherm.pas	(.../ProductDetailScherm.pas)	(revision 586)
+++ VerpakkingsDefinitie/UI/ProductDetailScherm.pas	(.../ProductDetailScherm.pas)	(revision 587)
@@ -45,7 +45,6 @@
     ComboBoxPositie: TComboBox;
     ComboBoxRichting: TComboBox;
     ButtonMeta: TButton;
-    MemoParameters: TMemo;
     PanelVerpakkingControls: TPanel;
     Label3: TLabel;
     Button1: TButton;
@@ -56,6 +55,7 @@
     ComboBoxBoxSelect: TComboBox;
     LabelProductNummer: TLabel;
     Label17: TLabel;
+    ScrollBoxParameters: TScrollBox;
 
     procedure FormCreate(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
@@ -80,7 +80,7 @@
 implementation
 
 uses
-  OptiServerService, Util, System.StrUtils;
+  OptiServerService, Util, System.StrUtils, CustomPanelVerpakkingParameter;
 {$R *.dfm}
 
 Constructor TFormProductDetail.Create(AOwner: TComponent; Navigator: INavigator; ApplicationContext: TApplicationContext;
@@ -181,9 +181,10 @@
 
 procedure TFormProductDetail.ToonProductVerpakking(ProductVerpakking: TProductVerpakking);
 var
-  I: Integer;
   TempStr: string;
   Item: string;
+  Parameter: TProductVerpakkingParameter;
+  NieuweParameterControl: TCustomPanelVerpakkingParameter;
 begin
   // Linkerhelft
 
@@ -222,6 +223,18 @@
   EditMaxCombAantal.Text := ProductVerpakking.MaxCombinAantal;
   EditAantal.Text := ProductVerpakking.Aantal;
 
+  // Parameters
+  TUtil.FreeControlChildrenDeep(ScrollBoxParameters);
+  for Parameter in ProductVerpakking.Parameters do
+  begin
+    NieuweParameterControl := TCustomPanelVerpakkingParameter.Create(ScrollBoxParameters);
+    with NieuweParameterControl do
+    begin
+      Parent := ScrollBoxParameters;
+      ProductVerpakkingParameter := Parameter;
+    end;
+  end;
+
   // Rechterhelft
 
   // Plaatsing
@@ -241,6 +254,7 @@
   // Positie
   CheckComboBoxPositie.Items.Clear();
   // CheckComboBox vullen en items selecteren. Als waarde niet aanwezig is, uit default halen.
+  { TODO : Bug fixen als item niet bestaat in dictionary }
   for Item in ApplicationContext.UiInstellingenContext.Posities.keys do
     CheckComboBoxPositie.Items.AddObject(ApplicationContext.UiInstellingenContext.Posities[Item], TObject(Item));
   if ProductVerpakking.Posities.Count > 0 then