--- dao/DelphiScanner/Main.pas	2015/09/03 14:31:39	2694
+++ dao/DelphiScanner/Main.pas	2015/09/03 14:45:27	2696
@@ -58,7 +58,7 @@
     ListBox2: TListBox;
     OpdaterListenButton01: TButton;
     UploadButton01: TButton;
-    DownloadButton03: TButton;
+    BtnDownloadRuteskiftFil: TButton;
     Pakkeshoplevering1: TMenuItem;
     PakkeshopText1: TStaticText;
     btnNulstil: TButton;
@@ -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();
@@ -140,7 +138,7 @@
   procedure SletStregkodelinieFraListboks2(StregKode : String);
   procedure FormDestroy(Sender: TObject);
   procedure UploadButton01Click(Sender: TObject);
-  procedure DownloadButton03Click(Sender: TObject);
+  procedure BtnDownloadRuteskiftFilClick(Sender: TObject);
   procedure Pakkeshoplevering1Click(Sender: TObject);
   procedure btnNulstilClick(Sender: TObject);
   procedure Returpakkerfrapakkeshop1Click(Sender: TObject);
@@ -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;
@@ -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)
@@ -3642,7 +3630,7 @@
       ListBox1.Items.Clear;
       BtnDownloadKontrolfil.Enabled := false;
       OpdaterListenButton01.Enabled := true;
-      DownloadButton03.Visible := false;
+      BtnDownloadRuteskiftFil.Visible := false;
       EKLoverforsel.Enabled := false;
       IdFTP1.Passive := true;
       IdFTP1.PassiveUseControlHost := true;
@@ -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