--- dao/DelphiScanner/Main.pas	2015/12/04 15:39:20	2791
+++ dao/DelphiScanner/Main.pas	2015/12/06 15:23:50	2792
@@ -4075,13 +4075,15 @@
 
   antlinIdag, antlinSenere : Integer;
 
-  XmlFelter : TStrings;
+  //XmlFelter : TStrings;
+  XmlFelter : TDictionary<String, Integer>;
 
  begin
 
 
-    XmlFelter := TStringList.Create;
+    XmlFelter := TDictionary<String, Integer>.Create;
     pakketyper := TDictionary<String, Integer>.Create;
+
     linienr := 0;
     ListBox2.Clear;
     ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + 'Henter oversigt over pakker der endnu ikke er modtaget');
@@ -4157,26 +4159,31 @@
           if Node.NodeType = ntElement then begin
             if Node.NodeName = 'Stregkode' then
             begin
-               antlin := antlin + 1;
+               Inc(antlin);
                // 20150306: start
               if not VarIsNull(Node.NodeValue) then
               begin
                  if (pos('(', Node.NodeValue) = 0) then
                  begin
-                   antlinIdag := antlinIdag + 1;
+                   Inc(antlinIdag);
                  end
                  else
                  begin
-                   antlinSenere := antlinSenere + 1;
+                   Inc(antlinSenere);
                  end;
               end;
                // 20150306: slut
             end;
           end;
-          if (XmlFelter.values[Node.NodeName] <> '') then
-                XmlFelter.values[Node.NodeName] := IntToStr(StrToInt(XmlFelter.values[Node.NodeName]) + 1)
+          if ( XmlFelter.ContainsKey(Node.NodeName) ) then
+              begin
+                XmlFelter.TryGetValue(Node.NodeName, tmpAntal);
+                XmlFelter.AddOrSetValue(Node.NodeName, tmpAntal + 1);
+              end
               else
-                XmlFelter.values[Node.NodeName] := '1';
+              begin
+                XmlFelter.Add(Node.NodeName, 1);
+              end;
 
       end;
       antalLiniefelter := XmlFelter.Count;
@@ -4264,6 +4271,8 @@
           end;
       end;
 
+      Application.Processmessages; //Ugly Hack to improve User Experience when switching modes
+
 
       for pakketype in pakketyper.Keys do
       begin