--- dao/DelphiScanner/Main.pas	2015/08/27 12:15:05	2684
+++ dao/DelphiScanner/Main.pas	2015/08/27 12:31:30	2685
@@ -8,7 +8,7 @@
   IdTCPClient, IdHTTP, xmldom, XMLIntf, msxmldom, XMLDoc, IniFiles, AppEvnts,
   Menus, ExtCtrls, ComCtrls, StrUtils, MMSystem, DateUtils,
   IdExplicitTLSClientServerBase, IdFTP, pngimage, GIFImg, IdException,
-  Winspool, Registry, ShellApi, ClipBrd, Buttons, wininet,
+  Winspool, ShellApi, ClipBrd, Buttons, wininet,
   UITypes,
   PakkeshopLabels,
   StBarC,
@@ -101,7 +101,7 @@
   function retRutenummer(rutenummer : String) : String;
   function GetCurrentPrinterHandle() : THandle;
   function SavePChar(p: PChar): PChar;
-  function AdobeReaderExists(): Boolean;
+
   function FileTime2DateTime(FileTime: TFileTime): TDateTime;
   function CheckUrl(url:string):boolean;
 
@@ -3419,7 +3419,7 @@
 
   if FileExists(fileName) then
   begin
-    if AdobeReaderExists then
+    if TUtils.AdobeReaderExists then
     begin
       //ShellExecute(Handle, 'open', 'c:\Windows\notepad.exe', nil, nil, SW_SHOWNORMAL);
       ShellExecute(Handle,'open',PChar(fileName), nil, nil, SW_SHOWNORMAL);
@@ -3443,7 +3443,7 @@
 
   if FileExists(fileName) then
   begin
-    if AdobeReaderExists then
+    if TUtils.AdobeReaderExists then
     begin
       //ShellExecute(Handle, 'open', 'c:\Windows\notepad.exe', nil, nil, SW_SHOWNORMAL);
       ShellExecute(Handle,'open',PChar(fileName), nil, nil, SW_SHOWNORMAL);
@@ -4516,7 +4516,6 @@
   XForm, XFormOld: TXForm; //Bruges til rotate X-formation
   Angle: integer;
   gMode: integer;
-  BarcodeArea: TRect;
   Dirigering: string;
 
 begin
@@ -5362,17 +5361,7 @@
   end;
 end;
 
-function TMainForm.AdobeReaderExists: Boolean;
-var
-  AReg: TRegistry;
-begin
-  result:= false;
-  AReg := TRegistry.Create;
-  AReg.RootKey := HKEY_LOCAL_MACHINE;
-  if AReg.KeyExists('\SOFTWARE\Adobe\Acrobat Reader') then
-    result:= True;
-  AReg.Free;
-end;
+
 
 
 function TMainForm.CheckUrl(url:string):boolean;