--- dao/DelphiScanner/Main.pas	2015/09/03 14:31:39	2694
+++ dao/DelphiScanner/Main.pas	2015/09/03 14:50:49	2698
@@ -57,15 +57,15 @@
     Image1: TImage;
     ListBox2: TListBox;
     OpdaterListenButton01: TButton;
-    UploadButton01: TButton;
-    DownloadButton03: TButton;
+    BtnUploadLogfil: TButton;
+    BtnDownloadRuteskiftFil: TButton;
     Pakkeshoplevering1: TMenuItem;
     PakkeshopText1: TStaticText;
     btnNulstil: TButton;
     Returpakkerfrapakkeshop1: TMenuItem;
     Altidprintepakkelabel1: TMenuItem;
     chkAltidPrintLabel: TCheckBox;
-    EKLoverforsel: TButton;
+    BtnEKLoverforsel: TButton;
     N5: TMenuItem;
     Uploadlogfil1: TMenuItem;
     Manual1: TMenuItem;
@@ -99,8 +99,6 @@
   function GetCurrentPrinterHandle() : THandle;
   function SavePChar(p: PChar): PChar;
 
-  function FileTime2DateTime(FileTime: TFileTime): TDateTime;
-
   procedure PlaySound(filename : PWideChar);
   procedure StartScreen();
   procedure InitScreen();
@@ -139,8 +137,8 @@
   procedure UploadInifilTilDAO();
   procedure SletStregkodelinieFraListboks2(StregKode : String);
   procedure FormDestroy(Sender: TObject);
-  procedure UploadButton01Click(Sender: TObject);
-  procedure DownloadButton03Click(Sender: TObject);
+  procedure BtnUploadLogfilClick(Sender: TObject);
+  procedure BtnDownloadRuteskiftFilClick(Sender: TObject);
   procedure Pakkeshoplevering1Click(Sender: TObject);
   procedure btnNulstilClick(Sender: TObject);
   procedure Returpakkerfrapakkeshop1Click(Sender: TObject);
@@ -154,7 +152,7 @@
 
   procedure Altidprintepakkelabel1Click(Sender: TObject);
   procedure chkAltidPrintLabelClick(Sender: TObject);
-  procedure EKLoverforselClick(Sender: TObject);
+  procedure BtnEKLoverforselClick(Sender: TObject);
   procedure Uploadlogfil1Click(Sender: TObject);
   procedure Manual1Click(Sender: TObject);
   procedure Timer1Timer(Sender: TObject);
@@ -605,7 +603,7 @@
       try
         SkrivScanningLogFil(logTekst);
         Uploadlogfil1.Enabled := true;
-        UploadButton01.Enabled := true;
+        BtnUploadLogfil.Enabled := true;
         logTekst := 'Programmet er installeret som: '+ParamStr(0);
         SkrivScanningLogFil(logTekst);
         // Oprydning i gamle logfiler
@@ -2003,11 +2001,11 @@
             Testprinter1.Visible := true;
            if (getProddag() = 'lørdag') then
             begin
-              DownloadButton03.Visible := false;
+              BtnDownloadRuteskiftFil.Visible := false;
             end
             else
             begin
-              DownloadButton03.Visible := false;
+              BtnDownloadRuteskiftFil.Visible := false;
             end;
             BtnDownloadKontrolfil.Enabled := true;
             OpdaterListenButton01.Enabled := true;
@@ -2290,7 +2288,7 @@
   SkrivScanningLogFil(logTekst);
 end;
 
-procedure TMainForm.UploadButton01Click(Sender: TObject);
+procedure TMainForm.BtnUploadLogfilClick(Sender: TObject);
 begin
   UploadLogfilTilDAO();
   UploadInifilTilDAO();
@@ -3078,16 +3076,6 @@
 
 end;
 
-function TMainForm.FileTime2DateTime(FileTime: TFileTime): TDateTime;
-var
-   LocalFileTime: TFileTime;
-   SystemTime: TSystemTime;
-begin
-   FileTimeToLocalFileTime(FileTime, LocalFileTime) ;
-   FileTimeToSystemTime(LocalFileTime, SystemTime) ;
-   Result := SystemTimeToDateTime(SystemTime) ;
-end;
-
 procedure TMainForm.SletLogfiler(Path: string; FileList: TStrings);
 var
   SR: TSearchRec;
@@ -3107,7 +3095,7 @@
 
         dt := fileDateToDateTime(SR.Time);  // finder filens timestamp for seneste ændring
         CreationTime := SR.FindData.ftCreationTime;  // finder filens timestamp for oprettelse
-        dtCreation := FileTime2DateTime(CreationTime);   // finder filens timestamp for oprettelse
+        dtCreation := TUtils.FileTime2DateTime(CreationTime);   // finder filens timestamp for oprettelse
         // Selvom creation date godt kan være forskellig fra modified date,
         // skal vi alligevel altid tjekke filens alder ud fra modified date
         // (ændring den kan ligge både før og efter oprettelse, hvis filerne er flyttet eller ændret manuelt)
@@ -3555,7 +3543,7 @@
       radioLillePakke.Enabled := false;
       ListBox1.Visible := true;
       OpdaterListenButton01.Enabled := true;
-      EKLoverforsel.Enabled := true;
+      BtnEKLoverforsel.Enabled := true;
       InitLillePakke();
       ListBox1.Items.Clear;
       if BladhusSted = 0 then
@@ -3588,7 +3576,7 @@
       ListBox1.Visible := true;
       ListBox1.Items.Clear;
       ListBox2.Items.Clear;
-      EKLoverforsel.Enabled := false;
+      BtnEKLoverforsel.Enabled := false;
       InitLillePakke();
 end;
 
@@ -3614,7 +3602,7 @@
       ListBox1.Visible := true;
       ListBox1.Items.Clear;
       ListBox2.Items.Clear;
-      EKLoverforsel.Enabled := false;
+      BtnEKLoverforsel.Enabled := false;
       InitLillePakke();
 end;
 
@@ -3642,8 +3630,8 @@
       ListBox1.Items.Clear;
       BtnDownloadKontrolfil.Enabled := false;
       OpdaterListenButton01.Enabled := true;
-      DownloadButton03.Visible := false;
-      EKLoverforsel.Enabled := false;
+      BtnDownloadRuteskiftFil.Visible := false;
+      BtnEKLoverforsel.Enabled := false;
       IdFTP1.Passive := true;
       IdFTP1.PassiveUseControlHost := true;
       if (BladhusSted = 0) or (BladhusSted = 2) or (BladhusSted = 3) then
@@ -3679,7 +3667,7 @@
       BtnDownloadKontrolfil.Enabled := false;
       OpdaterListenButton01.Enabled := true;
 
-      EKLoverforsel.Enabled := true;
+      BtnEKLoverforsel.Enabled := true;
 
       InitLillePakke();
       IndlesScanningLogFil();
@@ -3715,7 +3703,7 @@
       ListBox1.Items.Clear;
       BtnDownloadKontrolfil.Enabled := false;
       OpdaterListenButton01.Enabled := true;
-      EKLoverforsel.Enabled := false;
+      BtnEKLoverforsel.Enabled := false;
       InitLillePakke();
       IndlesScanningLogFil();
       if BladhusSted = 0 then
@@ -3762,7 +3750,7 @@
 
       BtnDownloadKontrolfil.Enabled := false;
       OpdaterListenButton01.Enabled := true;
-      EKLoverforsel.Enabled := false;
+      BtnEKLoverforsel.Enabled := false;
       InitLillePakke();
       IndlesScanningLogFil();
       if BladhusSted = 0 then
@@ -3871,7 +3859,7 @@
   CheckCode();
 end;
 
-procedure TMainForm.EKLoverforselClick(Sender: TObject);
+procedure TMainForm.BtnEKLoverforselClick(Sender: TObject);
 var
   WebSvar : String;
   URLStr : String;
@@ -3881,7 +3869,7 @@
   status, kommentar : String;
 
 begin
-    EKLoverforsel.Enabled := false;
+    BtnEKLoverforsel.Enabled := false;
 
     ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + 'Overfører de scannede pakker til EKL');
     logTekst := 'Overfører de scannede pakker til EKL';
@@ -3944,7 +3932,7 @@
       end;
     end;
 
-    EKLoverforsel.Enabled := true;
+    BtnEKLoverforsel.Enabled := true;
 
     ListBox1.SetFocus;  // for at flytte fokus væk fra knappen så denne ikke aktiveres ved scanning / indtastning af stregkode
 
@@ -4485,7 +4473,7 @@
     ListBox1.SetFocus;  // for at flytte fokus væk fra download knappen så denne ikke aktiveres ved scanning / indtastning af stregkode
 end;
 
-procedure TMainForm.DownloadButton03Click(Sender: TObject);
+procedure TMainForm.BtnDownloadRuteskiftFilClick(Sender: TObject);
 begin
     if (getProddag() = 'lørdag') then
     begin