--- dao/DelphiScanner/Main.pas	2015/08/23 14:27:39	2659
+++ dao/DelphiScanner/Main.pas	2015/08/23 14:45:16	2660
@@ -8,7 +8,9 @@
   IdTCPClient, IdHTTP, xmldom, XMLIntf, msxmldom, XMLDoc, IniFiles, AppEvnts,
   Menus, ExtCtrls, ComCtrls, StrUtils, MMSystem, DateUtils,
   IdExplicitTLSClientServerBase, IdFTP, pngimage, GIFImg, IdException,
-  Winspool, Registry, ShellApi, ClipBrd, Buttons, wininet
+  Winspool, Registry, ShellApi, ClipBrd, Buttons, wininet,
+  UITypes
+
   ;
 
 type
@@ -535,10 +537,7 @@
   crlf = Chr(13) + Chr(10) ;  // Carriage return & Linefeed
 var
   printerInd : integer;
-  i : Integer;
-// 20150310: start
   gemScanningtype : String;
-// 20150310: slut
 
 begin
   // Initierer nogle variabler
@@ -1169,7 +1168,6 @@
   URLStr : String;
   Pakketype : String;
   Pakkescanningtype : String;
-  //List1msg : String;
 
 begin
 
@@ -1602,6 +1600,7 @@
                 
               StregKode := '';
               StregkodeST.Caption := StregKode;
+
               exit;
          end;
         Stregkode := '';
@@ -1928,8 +1927,6 @@
 end;
 
 procedure TMainForm.InitBladhus();
-var
-  LogFilnavn : string;
 
 begin
   Altidprintepakkelabel1.Enabled := false;
@@ -3213,7 +3210,6 @@
   BoghandlerNavn : String;
   Koreliste : String;
   Falsk : Boolean;
-  Sand : Boolean;
   SmsKode : String;
   DBKbane : String;
   Leveringssted : String;
@@ -3240,7 +3236,7 @@
   else
   begin
     Falsk := False;
-    Sand := True;
+
     HentPakkeInfoFraServer(Sted,'111111111100000', RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, Falsk, '');
     UpdateScreen(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, '');
     SmsKode := '999999';
@@ -3260,7 +3256,6 @@
   BoghandlerNavn : String;
   Koreliste : String;
   Falsk : Boolean;
-  Sand : Boolean;
   SmsKode : String;
   DBKbane : String;
   Leveringssted : String;
@@ -3269,7 +3264,7 @@
   Kommentar := '***** Kommentar *****';
   BoghandlerNavn := 'Modtagernavn';
   Falsk := False;
-  Sand := True;
+
 
   if (Printer.Printers.Count = 0) then
   begin
@@ -3827,13 +3822,13 @@
 
     // Hvorfor virker ovenstående ikke ???
     S := '';
-    Str(iVer[1],Result);
+    Str(iVer[1], Result);
     S := S+Result+'.';
-    Str(iVer[2],Result);
+    Str(iVer[2], Result);
     S := S+Result+'.';
-    Str(iVer[3],Result);
+    Str(iVer[3], Result);
     S := S+Result+'.';
-    Str(iVer[4],Result);
+    Str(iVer[4], Result);
     S := S+Result+'';
     Result := S;
   end;
@@ -4667,7 +4662,6 @@
       antlinIdag := 0;
       antlinSenere := 0;
 
-      antalFelterFundet := 0;
       for I:= 0 to XMLDocument1.DocumentElement.ChildNodes.Count - 1 do begin
           Node:= XMLDocument1.DocumentElement.ChildNodes[I];
           if Node.NodeType = ntElement then begin
@@ -4937,8 +4931,6 @@
 procedure TMainForm.SkrivScanningLogFil(var tekst : string);
 var
    SomeTxtFile : TextFile;
-   buffer : string;
-   S: string;
    idag, imorgen : TDateTime;
    imorgenYmd : string;
    logFilnavn : string;