--- dao/DelphiScanner/Main.pas	2015/09/03 14:31:39	2694
+++ dao/DelphiScanner/Main.pas	2015/09/03 14:40:49	2695
@@ -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();
@@ -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)