--- dao/DelphiScanner/Main.pas	2016/06/13 08:29:35	3046
+++ dao/DelphiScanner/Main.pas	2016/06/14 09:50:04	3049
@@ -289,6 +289,12 @@
 procedure TMainForm.InitForm(Farve,Titel,Url : String);
 begin
 
+    IdHTTP1.ConnectTimeout := 5000; // Vent max 5 sek på connect
+    IdHTTP1.ReadTimeout := 10000; // Vent max 10 sek på read
+
+
+
+
     StaticTextManglendePakker.Caption := '';
 
 
@@ -2996,8 +3002,7 @@
     SmsKode := '999999';
     DBKbane := '999';
     Leveringssted := 'XXX';
-    LabelPrint.TestZpl();
-    //PrintLabel(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, Falsk);
+    PrintLabel(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, Falsk);
     LabelPrint.CheckPrintQue('Test', PrinterNavn);
   end;
   FocusControl(StregkodeST);
@@ -4271,6 +4276,9 @@
       begin
         // Her skal vi ikke gøre noget - men vi skal forespørge igen
         WebSvar := IdHTTP1.Get(URLStr);
+
+
+
       end;
       on e:exception do
       begin