--- dao/DelphiScanner/Main.pas	2015/09/03 14:45:27	2696
+++ dao/DelphiScanner/Main.pas	2015/09/03 14:48:45	2697
@@ -57,7 +57,7 @@
     Image1: TImage;
     ListBox2: TListBox;
     OpdaterListenButton01: TButton;
-    UploadButton01: TButton;
+    BtnUploadLogfil: TButton;
     BtnDownloadRuteskiftFil: TButton;
     Pakkeshoplevering1: TMenuItem;
     PakkeshopText1: TStaticText;
@@ -137,7 +137,7 @@
   procedure UploadInifilTilDAO();
   procedure SletStregkodelinieFraListboks2(StregKode : String);
   procedure FormDestroy(Sender: TObject);
-  procedure UploadButton01Click(Sender: TObject);
+  procedure BtnUploadLogfilClick(Sender: TObject);
   procedure BtnDownloadRuteskiftFilClick(Sender: TObject);
   procedure Pakkeshoplevering1Click(Sender: TObject);
   procedure btnNulstilClick(Sender: TObject);
@@ -603,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
@@ -2288,7 +2288,7 @@
   SkrivScanningLogFil(logTekst);
 end;
 
-procedure TMainForm.UploadButton01Click(Sender: TObject);
+procedure TMainForm.BtnUploadLogfilClick(Sender: TObject);
 begin
   UploadLogfilTilDAO();
   UploadInifilTilDAO();