Index: VerpakkingsDefinitie/WS/ProductsAgent.pas
===================================================================
diff -u -r580 -r581
--- VerpakkingsDefinitie/WS/ProductsAgent.pas	(.../ProductsAgent.pas)	(revision 580)
+++ VerpakkingsDefinitie/WS/ProductsAgent.pas	(.../ProductsAgent.pas)	(revision 581)
@@ -116,7 +116,6 @@
 var
   Node: IXMLNode;
   I: Integer;
-  NewPair: TPair;
 begin
   // Ander velden leegmaken
   UiInstellingenContext.IsOK := True;
@@ -129,10 +128,7 @@
     for I := 0 to Instellingen.Positie.Count - 1 do
     begin
       Node := Instellingen.Positie[I];
-      NewPair := TPair.Create();
-      NewPair.Key := Node.GetAttributeNS('Key', '');
-      NewPair.Value := Node.Text;
-      UiInstellingenContext.Positie.Add(NewPair);
+      UiInstellingenContext.Positie.Add(Node.GetAttributeNS('Key', ''), Node.Text);
     end;
   end;
 
@@ -142,10 +138,7 @@
     for I := 0 to Instellingen.Plaatsing.Count - 1 do
     begin
       Node := Instellingen.Plaatsing[I];
-      NewPair := TPair.Create();
-      NewPair.Key := Node.GetAttributeNS('Key', '');
-      NewPair.Value := Node.Text;
-      UiInstellingenContext.Plaatsing.Add(NewPair);
+      UiInstellingenContext.Plaatsing.Add(Node.GetAttributeNS('Key', ''), Node.Text);
     end;
   end;
 
@@ -155,10 +148,7 @@
     for I := 0 to Instellingen.Richting.Count - 1 do
     begin
       Node := Instellingen.Richting[I];
-      NewPair := TPair.Create();
-      NewPair.Key := Node.GetAttributeNS('Key', '');
-      NewPair.Value := Node.Text;
-      UiInstellingenContext.Richting.Add(NewPair);
+      UiInstellingenContext.Richting.Add(Node.GetAttributeNS('Key', ''), Node.Text);
     end;
   end;