Index: VerpakkingsDefinitie/ApplicationContext.pas
===================================================================
diff -u -r596 -r597
--- VerpakkingsDefinitie/ApplicationContext.pas	(.../ApplicationContext.pas)	(revision 596)
+++ VerpakkingsDefinitie/ApplicationContext.pas	(.../ApplicationContext.pas)	(revision 597)
@@ -135,12 +135,12 @@
     FCutOrder: Integer;
 
     FVolumeVanCaption: string;
-    FBreedte: string;
-    FDefaultBreedte: string;
-    FDiepte: string;
-    FDefaultDiepte: string;
-    FHoogte: string;
-    FDefaultHoogte: string;
+    FBreedte: Integer;
+    FDefaultBreedte: Integer;
+    FDiepte: Integer;
+    FDefaultDiepte: Integer;
+    FHoogte: Integer;
+    FDefaultHoogte: Integer;
     FAantal: string;
     FMaxCombinAantal: string;
     FPlaatsing: string;
@@ -169,12 +169,12 @@
     property CutOrder: Integer read FCutOrder write FCutOrder;
 
     property VolumeVanCaption: string read FVolumeVanCaption write FVolumeVanCaption;
-    property Breedte: string read FBreedte write FBreedte;
-    property DefaultBreedte: string read FDefaultBreedte write FDefaultBreedte;
-    property Diepte: string read FDiepte write FDiepte;
-    property DefaultDiepte: string read FDefaultDiepte write FDefaultDiepte;
-    property Hoogte: string read FHoogte write FHoogte;
-    property DefaultHoogte: string read FDefaultHoogte write FDefaultHoogte;
+    property Breedte: Integer read FBreedte write FBreedte;
+    property DefaultBreedte: Integer read FDefaultBreedte write FDefaultBreedte;
+    property Diepte: Integer read FDiepte write FDiepte;
+    property DefaultDiepte: Integer read FDefaultDiepte write FDefaultDiepte;
+    property Hoogte: Integer read FHoogte write FHoogte;
+    property DefaultHoogte: Integer read FDefaultHoogte write FDefaultHoogte;
     property Aantal: string read FAantal write FAantal;
     property MaxCombinAantal: string read FMaxCombinAantal write FMaxCombinAantal;
     property Plaatsing: string read FPlaatsing write FPlaatsing;
@@ -219,6 +219,7 @@
 
     property ProductVerpakkingen: TReadOnlyList<TProductVerpakking> read GetProductVerpakkingenLijst;
     procedure SetProductVerpakkingen(Collection: TEnumerable<TProductVerpakking>);
+    procedure AddProductVerpakking(ProductVerpakking: TProductVerpakking);
     function GetDeelVanOpties(ProductVerpakking: TProductVerpakking): TList<String>;
     property GeselecteerdeVerpakking: TProductVerpakking read FGeselecteerdeVerpakking write SetGeselecteerdeVerpakking;
 
@@ -382,6 +383,16 @@
   self.NotifyChanged();
 end;
 
+procedure TProductVerpakkingenContext.AddProductVerpakking(ProductVerpakking: TProductVerpakking);
+begin
+  if ProductVerpakking = nil then
+    exit;
+
+  FProductVerpakkingen.Add(ProductVerpakking);
+  FGeselecteerdeVerpakking := ProductVerpakking;
+  self.NotifyChanged();
+end;
+
 procedure TProductVerpakkingenContext.SetGeselecteerdeVerpakking(ProductVerpakking: TProductVerpakking);
 begin
   FGeselecteerdeVerpakking := ProductVerpakking;