Index: VerpakkingsDefinitie/ApplicationContext.pas
===================================================================
diff -u -r580 -r581
--- VerpakkingsDefinitie/ApplicationContext.pas	(.../ApplicationContext.pas)	(revision 580)
+++ VerpakkingsDefinitie/ApplicationContext.pas	(.../ApplicationContext.pas)	(revision 581)
@@ -34,30 +34,30 @@
   end;
 
   // - UI instellingen
-  TPair = class
-  private
-    FKey: string;
-    FValue: string;
-  public
-    property Key: string read FKey write FKey;
-    property Value: string read FValue write FValue;
-  end;
+//  TPair = class
+//  private
+//    FKey: string;
+//    FValue: string;
+//  public
+//    property Key: string read FKey write FKey;
+//    property Value: string read FValue write FValue;
+//  end;
 
   TUiInstellingenContext = class(TSubject)
   private
-    FPositie: TList<TPair>;
-    FPlaatsing: TList<TPair>;
-    FRichting: TList<TPair>;
+    FPositie: TDictionary<String, String>;
+    FPlaatsing: TDictionary<String, String>;
+    FRichting: TDictionary<String, String>;
 
     FIsOK: Boolean;
     FErrorMessage: string;
     FInternalErrorMessage: string;
   public
     constructor Create();
     procedure NotifyChanged();
-    property Positie: TList<TPair> read FPositie write FPositie;
-    property Plaatsing: TList<TPair> read FPlaatsing write FPlaatsing;
-    property Richting: TList<TPair> read FRichting write FRichting;
+    property Positie: TDictionary<String, String> read FPositie write FPositie;
+    property Plaatsing: TDictionary<String, String> read FPlaatsing write FPlaatsing;
+    property Richting: TDictionary<String, String> read FRichting write FRichting;
     property IsOK: Boolean read FIsOK write FIsOK;
     property ErrorMessage: string read FErrorMessage write FErrorMessage;
     property InternalErrorMessage: string read FInternalErrorMessage write FInternalErrorMessage;
@@ -155,9 +155,9 @@
 constructor TUiInstellingenContext.Create();
 begin
   inherited Create();
-  FPositie := TList<TPair>.Create();
-  FPlaatsing := TList<TPair>.Create();
-  FRichting := TList<TPair>.Create();
+  FPositie := TDictionary<String, String>.Create();
+  FPlaatsing := TDictionary<String, String>.Create();
+  FRichting := TDictionary<String, String>.Create();
 end;
 
 procedure TUiInstellingenContext.NotifyChanged();
@@ -183,8 +183,6 @@
 end;
 
 function TProductInformatie.GetOmschrijving1(): string;
-var
-  S: string;
 begin
   if FKol4 = '' then
   begin