--- dao/DelphiScanner/Main.pas	2016/07/28 12:22:47	3075
+++ dao/DelphiScanner/Main.pas	2016/07/28 20:03:18	3076
@@ -26,7 +26,8 @@
   LabelPrint,
   Configuration,
   Vcl.Imaging.pngimage,
-  Generics.Collections
+  Generics.Collections,
+  TimingHelper
 
   ;
 
@@ -559,7 +560,7 @@
 
 // Sætter lige en default panel størrelse
   MainForm.ClientWidth := 1000;
-  MainForm.ClientHeight := 750;
+  MainForm.ClientHeight := 820;
 
   Config := TConfiguration.Create();
   Config.ReadFromInifile( TIniFile.Create(ChangeFileExt(Application.ExeName,'.ini')) );    //ToDo: clean up duplicate ini ref
@@ -4183,6 +4184,7 @@
   pakketyper : TDictionary<String, Integer>;
   tmpAntal : Integer;
 
+ time, timeSamlet : TTimingHelper;
 
 
   antlin : Integer;
@@ -4242,6 +4244,9 @@
      end;
 // 20150310: slut
 
+    time := TTimingHelper.create();        //DEBUG
+    timeSamlet := TTimingHelper.create();        //DEBUG
+
     try
     //raise EIdConnClosedGracefully.Create('test');   // KUN TIL TEST
 //    URLStr := string(Utf8Encode(URLStr));
@@ -4264,8 +4269,16 @@
       end;
     end;
     try
+      time.stop('HTTP Load');     //DEBUG
+
       XMLDocument1.LoadFromXML(WebSvar);
 
+      time.stop('XML Load');     //DEBUG
+
+
+
+
+
 
       antlin := 0;
       antlinIdag := 0;
@@ -4308,6 +4321,7 @@
       SetLength(stregkoderMedTjekkodeArray, 0);    // reset fra tidligere brug
       SetLength(stregkoderMedTjekkodeArray, antlin);  // sæt antal elementer i array
 
+      time.stop('Antal Linier');//DEBUG
 
       Application.Processmessages; //Ugly Hack to improve User Experience when switching modes
 
@@ -4393,6 +4407,9 @@
       end;
 
 
+      time.stop('Fyld Listbox2');//DEBUG
+
+
       Application.Processmessages; //Ugly Hack to improve User Experience when switching modes
 
 
@@ -4512,6 +4529,10 @@
       end;
     end;
 
+    time.stop('Done');//DEBUG
+    timeSamlet.stop('SamletTid');//DEBUG
+
+
 end;
 
 procedure TMainForm.IndlesScanningLogFil();