--- dao/DelphiScanner/Main.pas	2015/09/03 15:22:09	2701
+++ dao/DelphiScanner/Main.pas	2015/09/04 09:56:58	2704
@@ -174,6 +174,7 @@
   procedure SletLogfiler(Path: string; FileList: TStrings);
   procedure Manualgenerel1Click(Sender: TObject);
   procedure TjekkerUrls();
+  procedure TjekkerEnkeltUrl(UrlNavn: String; Url: String; var urlFejl: integer);
 
   procedure menuIndleveringClick(Sender: TObject);
 
@@ -281,9 +282,9 @@
 procedure TMainForm.InitForm(Farve,Titel,Url : String);
 begin
 
-// 20150309: startr
+
     StaticTextManglendePakker.Caption := '';
-// 20150309: slut
+
 
     Barcode := TStBarcode.Create(MainForm);//Dynamisk oprettelse af Barcode component
 
@@ -1887,7 +1888,7 @@
               PanelManglendePakker6.Visible := false;
             end;
           end;
-// 20150310: slut
+
           ListBox2.items.delete(i);
         end;
     end;
@@ -1923,47 +1924,7 @@
   Sprgefterboghandlernummer1.Enabled := false;
   ListBox1.Visible := true;
 //  TestFunktionen := '1';
-// 20150317: start
-(*
-  if TestFunktionen = '1' then
-    begin
-      Testforbindelsen1.Visible := true;
-      Testprinter1.Visible := true;
-      Testlyd1.Visible := true;
-      Testlyd2.Visible := true;
-    end
-  else if TestFunktionen = '2' then
-    begin
-      Testforbindelsen1.Enabled := false;
-      Testprinter1.Enabled := false;
-      Testlyd1.Enabled := false;
-      Testlyd2.Enabled := false;
-    end
-  else
-    begin
-      Testforbindelsen1.Visible := false;
-      Testprinter1.Visible := false;
-      Testlyd1.Visible := false;
-      Testlyd2.Visible := false;
-    end;
-  Testprinter1.Visible := false;
-  AlarmLyd := 'Sounds\Alarm.wav';
-  if not FileExists(AlarmLyd) then
-    begin
-      AlarmLyd := '';
-    end;
-  ScannetOkLyd := 'Sounds\Ok.wav';
-  if not FileExists(ScannetOkLyd) then
-    begin
-      ScannetOkLyd := '';
-    end;
-  ScannetOkStorLyd := 'Sounds\Ok_stor.wav';
-  if not FileExists(ScannetOkStorLyd) then
-    begin
-      ScannetOkStorLyd := '';
-    end;
-*)
-// 20150317: slut
+
   if Budlevering1.Checked then
   begin
     IndlesScanningLogFil();
@@ -2151,7 +2112,7 @@
      begin
        PrintNyLabel := True; //Indleveringskode vil ALTID udskrive label
        PakkeshopLabel := TPakkeshopLabel.Create( XMLDocument1 ); //Opret struct og parse xml doc
-       RuteNummer := PakkeshopLabel.Koreliste;
+       RuteNummer := PakkeshopLabel.Koreliste + '  ->  ' +  PakkeshopLabel.PakkeshopTurid;
        Stregkode := PakkeshopLabel.Stregkode;
 
        PrintPakkeshopLabel( PakkeshopLabel );
@@ -2653,438 +2614,144 @@
   //UpdateScreen('', '', 'Tjekker forbindelsen...', '', '');    // virker ikke
   ShowMessage('Tjekker data forbindelse til serveren.' + crlf + 'Det kan godt tage nogle minutter.' + crlf + 'Resultatet af testen vises i skærmbilledet...');
 
-        // Tjekker urls
-        logTekst := 'Tjekker urls.';
-        ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + logTekst);
-        SkrivScanningLogFil(logTekst);
+  try
+    // Tjekker urls
+    logTekst := 'Tjekker urls.';
+    ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + logTekst);
+    SkrivScanningLogFil(logTekst);
 
-        // Tjekker UrlNormal
-        if PanelValg1.Enabled = true then
-        begin
-          if TUtils.CheckUrl(UrlNormal) then
-          begin
-            logTekst := 'UrlNormal accepteret: ' + UrlNormal;
-            SkrivScanningLogFil(logTekst);
-          end
-          else
-          begin
-            inc(urlFejl);   // Optæller antal fejl
-            logTekst := 'UrlNormal svarer ikke: ' + UrlNormal;
-            ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + logTekst);
-            if TjekUrls = '1' then
-            begin
-              TjekUrls := '-';   // markerer at der var fejl
-              logTekst := logTekst + crlf + crlf + 'Programmet afsluttes... ';
-            end;
-            SkrivScanningLogFil(logTekst);
-            if TjekUrls = '1' then
-            begin
-              ShowMessage(logTekst);
-              UrlSendPrograminfo := '';   // Her sletter vi lige url, så der ikke forsøges at sende besked ved program slut
-              Application.Terminate;
-              exit;
-            end;
-          end;
-        end;
 
-        // Tjekker UrlReturDAO
-        if PanelValg2.Enabled = true then
-        begin
-          if TUtils.CheckUrl(UrlReturDAO) then
-          begin
-            logTekst := 'UrlReturDAO accepteret: ' + UrlReturDAO;
-            SkrivScanningLogFil(logTekst);
-          end
-          else
-          begin
-            inc(urlFejl);   // Optæller antal fejl
-            logTekst := 'UrlReturDAO svarer ikke: ' + UrlReturDAO;
-            ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + logTekst);
-            if TjekUrls = '1' then
-            begin
-              logTekst := logTekst + crlf + crlf + 'Programmet afsluttes... ';
-            end;
-            SkrivScanningLogFil(logTekst);
-            if TjekUrls = '1' then
-            begin
-              ShowMessage(logTekst);
-              UrlSendPrograminfo := '';   // Her sletter vi lige url, så der ikke forsøges at sende besked ved program slut
-              Application.Terminate;
-              exit;
-            end;
-          end;
-        end;
 
-        // Tjekker UrlReturBoghandler
-        if PanelValg3.Enabled = true then
-        begin
-          if TUtils.CheckUrl(UrlReturBoghandler) then
-          begin
-            logTekst := 'UrlReturBoghandler accepteret: ' + UrlReturBoghandler;
-            SkrivScanningLogFil(logTekst);
-          end
-          else
-          begin
-            inc(urlFejl);   // Optæller antal fejl
-            logTekst := 'UrlReturDAO svarer ikke: ' + UrlReturDAO;
-            ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + logTekst);
-            if TjekUrls = '1' then
-            begin
-              logTekst := logTekst + crlf + crlf + 'Programmet afsluttes... ';
-            end;
-            SkrivScanningLogFil(logTekst);
-            if TjekUrls = '1' then
-            begin
-              ShowMessage(logTekst);
-              UrlSendPrograminfo := '';   // Her sletter vi lige url, så der ikke forsøges at sende besked ved program slut
-              Application.Terminate;
-              exit;
-            end;
-          end;
-        end;
+    // Tjekker UrlNormal
+    if PanelValg1.Enabled = true then
+    begin
+      TjekkerEnkeltUrl('UrlNormal', UrlNormal, urlFejl);
+    end;
 
-        // Tjekker UrlBudlevering
-        if PanelValg4.Enabled = true then
-        begin
-          if TUtils.CheckUrl(UrlBudlevering) then
-          begin
-            logTekst := 'UrlBudlevering accepteret: ' + UrlBudlevering;
-            SkrivScanningLogFil(logTekst);
-          end
-          else
-          begin
-            inc(urlFejl);   // Optæller antal fejl
-            logTekst := 'UrlBudlevering svarer ikke: ' + UrlBudlevering;
-            ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + logTekst);
-            if TjekUrls = '1' then
-            begin
-              logTekst := logTekst + crlf + crlf + 'Programmet afsluttes... ';
-            end;
-            SkrivScanningLogFil(logTekst);
-            if TjekUrls = '1' then
-            begin
-              ShowMessage(logTekst);
-              UrlSendPrograminfo := '';   // Her sletter vi lige url, så der ikke forsøges at sende besked ved program slut
-              Application.Terminate;
-              exit;
-            end;
-          end;
-        end;
+    // Tjekker UrlReturDAO
+    if PanelValg2.Enabled = true then
+    begin
+      TjekkerEnkeltUrl('UrlReturDAO', UrlReturDAO, urlFejl);
+    end;
 
-        // Tjekker UrlPakkeshoplevering
-        if PanelValg5.Enabled = true then
-        begin
-          if TUtils.CheckUrl(UrlPakkeshoplevering) then
-          begin
-            logTekst := 'UrlPakkeshoplevering accepteret: ' + UrlPakkeshoplevering;
-            SkrivScanningLogFil(logTekst);
-          end
-          else
-          begin
-            inc(urlFejl);   // Optæller antal fejl
-            logTekst := 'UrlPakkeshoplevering svarer ikke: ' + UrlPakkeshoplevering;
-            ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + logTekst);
-            if TjekUrls = '1' then
-            begin
-              logTekst := logTekst + crlf + crlf + 'Programmet afsluttes... ';
-            end;
-            SkrivScanningLogFil(logTekst);
-            if TjekUrls = '1' then
-            begin
-              ShowMessage(logTekst);
-              UrlSendPrograminfo := '';   // Her sletter vi lige url, så der ikke forsøges at sende besked ved program slut
-              Application.Terminate;
-              exit;
-            end;
-          end;
-        end;
+    // Tjekker UrlReturBoghandler
+    if PanelValg3.Enabled = true then
+    begin
+      TjekkerEnkeltUrl('UrlReturBoghandler', UrlReturBoghandler, urlFejl);
+    end;
 
-        // Tjekker UrlReturPakkeshop
-        if PanelValg6.Enabled = true then
-        begin
-          if TUtils.CheckUrl(UrlReturPakkeshop) then
-          begin
-            logTekst := 'UrlReturPakkeshop accepteret: ' + UrlReturPakkeshop;
-            SkrivScanningLogFil(logTekst);
-          end
-          else
-          begin
-            inc(urlFejl);   // Optæller antal fejl
-            logTekst := 'UrlReturPakkeshop svarer ikke: ' + UrlReturPakkeshop;
-            ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + logTekst);
-            if TjekUrls = '1' then
-            begin
-              logTekst := logTekst + crlf + crlf + 'Programmet afsluttes... ';
-            end;
-            SkrivScanningLogFil(logTekst);
-            if TjekUrls = '1' then
-            begin
-              ShowMessage(logTekst);
-              UrlSendPrograminfo := '';   // Her sletter vi lige url, så der ikke forsøges at sende besked ved program slut
-              Application.Terminate;
-              exit;
-            end;
-          end;
-        end;
+    // Tjekker UrlBudlevering
+    if PanelValg4.Enabled = true then
+    begin
+      TjekkerEnkeltUrl('UrlBudlevering', UrlBudlevering, urlFejl);
+    end;
 
-        // Tjekker UrlManglendeScanninger
-        if (PanelValg1.Enabled = true)
-        or (PanelValg4.Enabled = true) then
-        begin
-          if TUtils.CheckUrl(UrlManglendeScanninger) then
-          begin
-            logTekst := 'UrlManglendeScanninger accepteret: ' + UrlManglendeScanninger;
-            SkrivScanningLogFil(logTekst);
-          end
-          else
-          begin
-            inc(urlFejl);   // Optæller antal fejl
-            logTekst := 'UrlManglendeScanninger svarer ikke: ' + UrlManglendeScanninger;
-            ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + logTekst);
-            if TjekUrls = '1' then
-            begin
-              logTekst := logTekst + crlf + crlf + 'Programmet afsluttes... ';
-            end;
-            SkrivScanningLogFil(logTekst);
-            if TjekUrls = '1' then
-            begin
-              ShowMessage(logTekst);
-              UrlSendPrograminfo := '';   // Her sletter vi lige url, så der ikke forsøges at sende besked ved program slut
-              Application.Terminate;
-              exit;
-            end;
-          end;
-        end;
+    // Tjekker UrlPakkeshoplevering
+    if PanelValg5.Enabled = true then
+    begin
+      TjekkerEnkeltUrl('UrlPakkeshoplevering', UrlPakkeshoplevering, urlFejl);
+    end;
 
-        // Tjekker UrlPakkeshopManglendeScanninger
-        if PanelValg5.Enabled = true then
-        begin
-          if TUtils.CheckUrl(UrlPakkeshopManglendeScanninger) then
-          begin
-            logTekst := 'UrlPakkeshopManglendeScanninger accepteret: ' + UrlPakkeshopManglendeScanninger;
-            SkrivScanningLogFil(logTekst);
-          end
-          else
-          begin
-            inc(urlFejl);   // Optæller antal fejl
-            logTekst := 'UrlPakkeshopManglendeScanninger svarer ikke: ' + UrlPakkeshopManglendeScanninger;
-            ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + logTekst);
-            if TjekUrls = '1' then
-            begin
-              logTekst := logTekst + crlf + crlf + 'Programmet afsluttes... ';
-            end;
-            SkrivScanningLogFil(logTekst);
-            if TjekUrls = '1' then
-            begin
-              ShowMessage(logTekst);
-              UrlSendPrograminfo := '';   // Her sletter vi lige url, så der ikke forsøges at sende besked ved program slut
-              Application.Terminate;
-              exit;
-            end;
-          end;
-        end;
+    // Tjekker UrlReturPakkeshop
+    if PanelValg6.Enabled = true then
+    begin
+      TjekkerEnkeltUrl('UrlReturPakkeshop', UrlReturPakkeshop, urlFejl);
+    end;
 
-        // Tjekker UrlPakkeshopManglendeReturScanninger
-        if PanelValg6.Enabled = true then
-        begin
-          if TUtils.CheckUrl(UrlPakkeshopManglendeReturScanninger) then
-          begin
-            logTekst := 'UrlPakkeshopManglendeReturScanninger accepteret: ' + UrlPakkeshopManglendeReturScanninger;
-            SkrivScanningLogFil(logTekst);
-          end
-          else
-          begin
-            inc(urlFejl);   // Optæller antal fejl
-            logTekst := 'UrlPakkeshopManglendeReturScanninger svarer ikke: ' + UrlPakkeshopManglendeReturScanninger;
-            ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + logTekst);
-            if TjekUrls = '1' then
-            begin
-              logTekst := logTekst + crlf + crlf + 'Programmet afsluttes... ';
-            end;
-            SkrivScanningLogFil(logTekst);
-            if TjekUrls = '1' then
-            begin
-              ShowMessage(logTekst);
-              UrlSendPrograminfo := '';   // Her sletter vi lige url, så der ikke forsøges at sende besked ved program slut
-              Application.Terminate;
-              exit;
-            end;
-          end;
-        end;
+    // Tjekker UrlManglendeScanninger
+    if (PanelValg1.Enabled = true) or (PanelValg4.Enabled = true) then
+    begin
+      TjekkerEnkeltUrl('UrlManglendeScanninger', UrlManglendeScanninger, urlFejl);
+    end;
 
-       // Tjekker UrlIndleveringsPakke og UrlIndleveringsPakkeManglendeScanninger
-        if PanelValg7.Enabled = true then
-        begin
-          if TUtils.CheckUrl(UrlIndleveringsPakke) then
-          begin
-            logTekst := 'UrlIndleveringsPakke accepteret: ' + UrlIndleveringsPakke;
-            SkrivScanningLogFil(logTekst);
-          end
-          else
-          begin
-            inc(urlFejl);   // Optæller antal fejl
-            logTekst := 'UrlIndleveringsPakke svarer ikke: ' + UrlIndleveringsPakke;
-            ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + logTekst);
-            if TjekUrls = '1' then
-            begin
-              logTekst := logTekst + crlf + crlf + 'Programmet afsluttes... ';
-            end;
-            SkrivScanningLogFil(logTekst);
-            if TjekUrls = '1' then
-            begin
-              ShowMessage(logTekst);
-              UrlSendPrograminfo := '';   // Her sletter vi lige url, så der ikke forsøges at sende besked ved program slut
-              Application.Terminate;
-              exit;
-            end;
-          end;
+    // Tjekker UrlPakkeshopManglendeScanninger
+    if PanelValg5.Enabled = true then
+    begin
+      TjekkerEnkeltUrl('UrlPakkeshopManglendeScanninger', UrlPakkeshopManglendeScanninger, urlFejl);
+    end;
 
-          if TUtils.CheckUrl(UrlIndleveringsPakkeManglendeScanninger) then
-          begin
-            logTekst := 'UrlIndleveringsPakkeManglendeScanninger accepteret: ' + UrlIndleveringsPakkeManglendeScanninger;
-            SkrivScanningLogFil(logTekst);
-          end
-          else
-          begin
-            inc(urlFejl);   // Optæller antal fejl
-            logTekst := 'UrlIndleveringsPakkeManglendeScanninger svarer ikke: ' + UrlIndleveringsPakkeManglendeScanninger;
-            ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + logTekst);
-            if TjekUrls = '1' then
-            begin
-              logTekst := logTekst + crlf + crlf + 'Programmet afsluttes... ';
-            end;
-            SkrivScanningLogFil(logTekst);
-            if TjekUrls = '1' then
-            begin
-              ShowMessage(logTekst);
-              UrlSendPrograminfo := '';   // Her sletter vi lige url, så der ikke forsøges at sende besked ved program slut
-              Application.Terminate;
-              exit;
-            end;
-          end;
-        end;
+    // Tjekker UrlPakkeshopManglendeReturScanninger
+    if PanelValg6.Enabled = true then
+    begin
+      TjekkerEnkeltUrl('UrlPakkeshopManglendeReturScanninger', UrlPakkeshopManglendeReturScanninger, urlFejl);
+    end;
 
-        // Tjekker UrlEKLoverforsel
-        if PanelValg1.Enabled = true then
-        begin
-          if TUtils.CheckUrl(UrlEKLoverforsel) then
-          begin
-            logTekst := 'UrlEKLoverforsel accepteret: ' + UrlEKLoverforsel;
-            SkrivScanningLogFil(logTekst);
-          end
-          else
-          begin
-            inc(urlFejl);   // Optæller antal fejl
-            logTekst := 'UrlEKLoverforsel svarer ikke: ' + UrlEKLoverforsel;
-            ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + logTekst);
-            if TjekUrls = '1' then
-            begin
-              logTekst := logTekst + crlf + crlf + 'Programmet afsluttes... ';
-            end;
-            SkrivScanningLogFil(logTekst);
-            if TjekUrls = '1' then
-            begin
-              ShowMessage(logTekst);
-              UrlSendPrograminfo := '';   // Her sletter vi lige url, så der ikke forsøges at sende besked ved program slut
-              Application.Terminate;
-              exit;
-            end;
-          end;
-        end;
+   // Tjekker UrlIndleveringsPakke og UrlIndleveringsPakkeManglendeScanninger
+    if PanelValg7.Enabled = true then
+    begin
+      TjekkerEnkeltUrl('UrlIndleveringsPakke', UrlIndleveringsPakke, urlFejl);
+      TjekkerEnkeltUrl('UrlIndleveringsPakkeManglendeScanninger', UrlIndleveringsPakkeManglendeScanninger, urlFejl);
+    end;
 
+    // Tjekker UrlEKLoverforsel
+    if PanelValg1.Enabled = true then
+    begin
+      TjekkerEnkeltUrl('UrlEKLoverforsel', UrlEKLoverforsel, urlFejl);
+    end;
 
-        // Tjekker UrlEKLoverforselPakkeshop
-        if PanelValg5.Enabled = true then
-        begin
-          if TUtils.CheckUrl(UrlEKLoverforselPakkeshop) then
-          begin
-            logTekst := 'UrlEKLoverforselPakkeshop accepteret: ' + UrlEKLoverforselPakkeshop;
-            SkrivScanningLogFil(logTekst);
-          end
-          else
-          begin
-            inc(urlFejl);   // Optæller antal fejl
-            logTekst := 'UrlEKLoverforselPakkeshop svarer ikke: ' + UrlEKLoverforselPakkeshop;
-            ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + logTekst);
-            if TjekUrls = '1' then
-            begin
-              logTekst := logTekst + crlf + crlf + 'Programmet afsluttes... ';
-            end;
-            SkrivScanningLogFil(logTekst);
-            if TjekUrls = '1' then
-            begin
-              ShowMessage(logTekst);
-              UrlSendPrograminfo := '';   // Her sletter vi lige url, så der ikke forsøges at sende besked ved program slut
-              Application.Terminate;
-              exit;
-            end;
-          end;
-        end;
 
+    // Tjekker UrlEKLoverforselPakkeshop
+    if PanelValg5.Enabled = true then
+    begin
+      TjekkerEnkeltUrl('UrlEKLoverforselPakkeshop', UrlEKLoverforselPakkeshop, urlFejl);
+    end;
 
-        // Tjekker UrlFindPakketype
-        if TUtils.CheckUrl(UrlFindPakketype) then
-        begin
-          logTekst := 'UrlFindPakketype accepteret: ' + UrlFindPakketype;
-          SkrivScanningLogFil(logTekst);
-        end
-        else
-        begin
-            inc(urlFejl);   // Optæller antal fejl
-            logTekst := 'UrlFindPakketype svarer ikke: ' + UrlFindPakketype;
-            ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + logTekst);
-            if TjekUrls = '1' then
-            begin
-              logTekst := logTekst + crlf + crlf + 'Programmet afsluttes... ';
-            end;
-            SkrivScanningLogFil(logTekst);
-            if TjekUrls = '1' then
-            begin
-              ShowMessage(logTekst);
-              UrlSendPrograminfo := '';   // Her sletter vi lige url, så der ikke forsøges at sende besked ved program slut
-              Application.Terminate;
-              exit;
-            end;
-        end;
 
-        // Tjekker UrlSendPrograminfo
-        if TUtils.CheckUrl(UrlSendPrograminfo) then
-        begin
-          logTekst := 'UrlSendPrograminfo accepteret: ' + UrlSendPrograminfo;
-          SkrivScanningLogFil(logTekst);
-        end
-        else
-        begin
-            inc(urlFejl);   // Optæller antal fejl
-            logTekst := 'UrlSendPrograminfo svarer ikke: ' + UrlSendPrograminfo;
-            ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + logTekst);
-            if TjekUrls = '1' then
-            begin
-              logTekst := logTekst + crlf + crlf + 'Programmet afsluttes... ';
-            end;
-            SkrivScanningLogFil(logTekst);
-            if TjekUrls = '1' then
-            begin
-              ShowMessage(logTekst);
-              UrlSendPrograminfo := '';   // Her sletter vi lige url, så der ikke forsøges at sende besked ved program slut
-              Application.Terminate;
-              exit;
-            end;
-        end;
+    // Tjekker UrlFindPakketype
+    TjekkerEnkeltUrl('UrlFindPakketype', UrlFindPakketype, urlFejl);
 
-        if urlFejl > 0 then
-        begin
-          TjekUrls := '-';   // markerer at der var fejl
-        end
-        else
-        begin
-          logTekst := 'urls er ok';
-          ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + logTekst);
-          SkrivScanningLogFil(logTekst);
-        end;
+    // Tjekker UrlSendPrograminfo
+    TjekkerEnkeltUrl('UrlSendPrograminfo', UrlSendPrograminfo, urlFejl);
+
+
+
+    logTekst := 'urls er ok';
+    ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + logTekst);
+    SkrivScanningLogFil(logTekst);
 
+  Except
+    TjekUrls := '-';   // markerer at der var fejl
+
+  end;
 end;
 
+procedure TMainForm.TjekkerEnkeltUrl(UrlNavn: String; Url: String; var urlFejl: integer);
+const
+  crlf = Chr(13) + Chr(10) ;  // Carriage return & Linefeed
+begin
+  if TUtils.CheckUrl(Url) then
+
+  begin
+    logTekst := UrlNavn + ' accepteret: ' + Url;
+    SkrivScanningLogFil(logTekst);
+  end
+  else
+  begin
+    inc(urlFejl);   // Optæller antal fejl
+    logTekst := UrlNavn + ' svarer ikke: ' + Url;
+    ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + logTekst);
+    if TjekUrls = '1' then
+    begin
+      logTekst := logTekst + crlf + crlf + 'Programmet afsluttes... ';
+    end;
+
+    SkrivScanningLogFil(logTekst);
+
+    if TjekUrls = '1' then
+    begin
+      ShowMessage(logTekst);
+      UrlSendPrograminfo := '';   // Her sletter vi lige url, så der ikke forsøges at sende besked ved program slut
+      Application.Terminate;
+
+      raise Exception.Create('UrlFejl');
+
+    end;
+  end;
+
+end;
+
+
+
 procedure TMainForm.SletLogfiler(Path: string; FileList: TStrings);
 var
   SR: TSearchRec;
@@ -3164,16 +2831,6 @@
   if Farve <> '' then
   begin
      MainForm.Color := TUtils.HexToTColor(Farve);
-// 20150312: start
-(*
-  end
-  else
-  begin
-     ShowMessage('Programmet afbrydes...');
-     UrlSendPrograminfo := '';   // Her sletter vi lige url, så der ikke forsøges at sende besked ved program slut
-     Application.Terminate;
-*)
-// 20150312: slut
   end;
   if (Budlevering1.Checked) then
   begin
@@ -3885,12 +3542,12 @@
     SkrivScanningLogFil(logTekst);
     StedKode := Sted;
     URLStr := Format(UrlEKLoverforsel,[StedKode,Sted]);
-// 20150330: start
+
     if PanelValg5.Color = clGreen then
     begin
       URLStr := Format(UrlEKLoverforselPakkeshop,[StedKode,Sted]);
     end;
-// 20150330: slut
+
 
     try
     //raise EIdConnClosedGracefully.Create('test');   // KUN TIL TEST
@@ -4781,8 +4438,7 @@
                 antalFelterFundet := antalFelterFundet + 1;
                 if (tjekkodestatus = '-1') then
                 begin
-// 20150306: start
-//                    stregkoderMedTjekkodeArray[linienr] := stregkode;
+
                   if (pos(' ', stregkode) > 0) then
                   begin
                     stregkoderMedTjekkodeArray[linienr] := TUtils.split(stregkode, ' ', 2);  // Fjerner lige en evt. fremtidig dato fra feltet