--- dao/DelphiScanner/Main.pas	2016/06/13 08:54:20	3047
+++ dao/DelphiScanner/Main.pas	2016/06/13 09:12:26	3048
@@ -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 := '';
 
 
@@ -4271,6 +4277,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