--- dao/DelphiScanner/Main.pas	2015/09/03 14:50:49	2698
+++ dao/DelphiScanner/Main.pas	2015/09/03 14:52:48	2699
@@ -56,7 +56,7 @@
     IdFTP1: TIdFTP;
     Image1: TImage;
     ListBox2: TListBox;
-    OpdaterListenButton01: TButton;
+    BtnOpdaterListen: TButton;
     BtnUploadLogfil: TButton;
     BtnDownloadRuteskiftFil: TButton;
     Pakkeshoplevering1: TMenuItem;
@@ -129,7 +129,7 @@
   procedure ListBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);
   procedure Budlevering1Click(Sender: TObject);
   procedure BtnDownloadKontrolfilClick(Sender: TObject);
-  procedure OpdaterListenButton01Click(Sender: TObject);
+  procedure BtnOpdaterListenClick(Sender: TObject);
   procedure DownloadBladhusRuteskiftfil();
   procedure DownloadBladhusKontrolfil();
   procedure SendFilTilDAO(fil_type, filnavn_input, filnavn_output: String);
@@ -329,7 +329,7 @@
       PanelValg7.Font.Color := clWindowText;
     end;
 
-    OpdaterListenButton01.Enabled := false;
+    BtnOpdaterListen.Enabled := false;
 
     if (BladhusSted > 00) and (BladhusSted < Length(BladhusStedNavn)) then
     begin
@@ -1975,7 +1975,7 @@
           begin;      // NS
             Testprinter1.Visible := true;
             BtnDownloadKontrolfil.Enabled := true;
-            OpdaterListenButton01.Enabled := true;
+            BtnOpdaterListen.Enabled := true;
             IdFTP1.Passive := true;
             IdFTP1.PassiveUseControlHost := true;
             BladhusKontrolfil_server := 'franordjyske/RuteKontrol.txt';
@@ -1991,7 +1991,7 @@
             radioStorPakke.Enabled := true;
             radioLillePakke.Enabled := true;
             BtnDownloadKontrolfil.Enabled := false;     // kontrolfil bruges ikke her
-            OpdaterListenButton01.Enabled := true;
+            BtnOpdaterListen.Enabled := true;
             IdFTP1.Passive := true;
             IdFTP1.PassiveUseControlHost := true;
             IndlesManglendeScanninger();
@@ -2008,7 +2008,7 @@
               BtnDownloadRuteskiftFil.Visible := false;
             end;
             BtnDownloadKontrolfil.Enabled := true;
-            OpdaterListenButton01.Enabled := true;
+            BtnOpdaterListen.Enabled := true;
             IdFTP1.Passive := true;
             IdFTP1.PassiveUseControlHost := true;
             BladhusRuteskiftfil_server := 'frafd/RuteSkift.txt';
@@ -2029,7 +2029,7 @@
             radioStorPakke.Enabled := true;
             radioLillePakke.Enabled := true;
             BtnDownloadKontrolfil.Enabled := false;    // kontrolfil bruges ikke her
-            OpdaterListenButton01.Enabled := true;
+            BtnOpdaterListen.Enabled := true;
             IdFTP1.Passive := true;
             IdFTP1.PassiveUseControlHost := true;
           end;
@@ -3542,7 +3542,7 @@
       radioStorPakke.Enabled := false;
       radioLillePakke.Enabled := false;
       ListBox1.Visible := true;
-      OpdaterListenButton01.Enabled := true;
+      BtnOpdaterListen.Enabled := true;
       BtnEKLoverforsel.Enabled := true;
       InitLillePakke();
       ListBox1.Items.Clear;
@@ -3629,7 +3629,7 @@
       ListBox1.Visible := true;
       ListBox1.Items.Clear;
       BtnDownloadKontrolfil.Enabled := false;
-      OpdaterListenButton01.Enabled := true;
+      BtnOpdaterListen.Enabled := true;
       BtnDownloadRuteskiftFil.Visible := false;
       BtnEKLoverforsel.Enabled := false;
       IdFTP1.Passive := true;
@@ -3665,7 +3665,7 @@
       ListBox1.Visible := true;
       ListBox1.Items.Clear;
       BtnDownloadKontrolfil.Enabled := false;
-      OpdaterListenButton01.Enabled := true;
+      BtnOpdaterListen.Enabled := true;
 
       BtnEKLoverforsel.Enabled := true;
 
@@ -3702,7 +3702,7 @@
       ListBox1.Visible := true;
       ListBox1.Items.Clear;
       BtnDownloadKontrolfil.Enabled := false;
-      OpdaterListenButton01.Enabled := true;
+      BtnOpdaterListen.Enabled := true;
       BtnEKLoverforsel.Enabled := false;
       InitLillePakke();
       IndlesScanningLogFil();
@@ -3749,7 +3749,7 @@
       ListBox1.Items.Clear();
 
       BtnDownloadKontrolfil.Enabled := false;
-      OpdaterListenButton01.Enabled := true;
+      BtnOpdaterListen.Enabled := true;
       BtnEKLoverforsel.Enabled := false;
       InitLillePakke();
       IndlesScanningLogFil();
@@ -4464,7 +4464,7 @@
     ListBox1.SetFocus;  // for at flytte fokus væk fra download knappen så denne ikke aktiveres ved scanning / indtastning af stregkode
 end;
 
-procedure TMainForm.OpdaterListenButton01Click(Sender: TObject);
+procedure TMainForm.BtnOpdaterListenClick(Sender: TObject);
 const
   crlf = Chr(13) + Chr(10) ;  // Carriage return & Linefeed