--- dao/DelphiScanner/Main.pas	2016/06/27 12:18:07	3055
+++ dao/DelphiScanner/Main.pas	2016/06/27 12:21:43	3056
@@ -1840,6 +1840,7 @@
       for i := ListBox2.items.count-1 downto 0 do
         if pos(StregKode,ListBox2.items[i]) <> 0 then
         begin
+          wrkAntalSenere := 0;//initial Value
 
           // Ajourføring af tæller for manglende pakker (scanninger)
           wrkAntal := StaticTextManglendePakker.Caption;
@@ -4203,7 +4204,7 @@
   I: Integer;
   stregkode, modtagernavn, modtageradresse, kommentar : string;
   pakketype, tjekkodestatus : String;
-  pakketypeix, antalLiniefelter, antalFelterFundet, linienr : Integer;
+  antalLiniefelter, antalFelterFundet, linienr : Integer;
   //pakketyper : TStrings;
   pakketyper : TDictionary<String, Integer>;
   tmpAntal : Integer;