--- dao/DelphiScanner/Main.pas	2015/08/26 19:52:38	2682
+++ dao/DelphiScanner/Main.pas	2015/08/26 19:56:26	2683
@@ -207,9 +207,9 @@
     AlarmLyd : String;
     ScannetOkLyd : String;
     ScannetOkStorLyd : String;
-// 20150317: start
+
     ScannetOkTilTjekkodeLyd : String;
-// 20150317: slut
+
     PrinterNavn : String;
     TjekPrinter : String;
     XPosRute : integer;
@@ -498,27 +498,11 @@
 
 procedure TMainForm.Automatiskvalg1Click(Sender: TObject);
 begin
-// 20150317: start
-(*
-  if Automatiskvalg1.Checked then
-  begin
-     AutomatiskValg1.Checked := true;
-     PanelValgA.Color := clGreen;
-     PanelValgA.Font.Color := clWhite;
-  end
-  else
-  begin
-     AutomatiskValg1.Checked := false;
-     PanelValgA.Color := clBtnFace;
-     PanelValgA.Font.Color := clWindowText;
-  end;
-*)
 // Skal ikke toggle men bare sætte funktionen on
 // Fravælges ved at vælge en scanningstype
      AutomatiskValg1.Checked := true;
      PanelValgA.Color := clGreen;
      PanelValgA.Font.Color := clWhite;
-// 20150317: slut
 end;
 
 procedure TMainForm.FormCreate(Sender: TObject);
@@ -790,7 +774,6 @@
     // Hvis specialversion er valgt (SpecialVersionSted er sat til en værdi ovenfor)
     // ændrer vi Sted og Scanningtype her:
 
-// 20150313: start
     if SpecialVersionSted = 'NS' then
     begin
        SpecialVersionSted := '01';
@@ -801,7 +784,6 @@
        SpecialVersionSted := '03';
        SpecialVersionScanningtype := '4';
     end;
-// 20150313: slut
 
     if SpecialVersionSted = 'BK' then
     begin