--- dao/DelphiScanner/Main.pas	2015/08/23 13:09:14	2656
+++ dao/DelphiScanner/Main.pas	2015/08/23 14:02:55	2657
@@ -258,6 +258,7 @@
     procedure IndlesScanningLogFil();
     procedure SkrivScanningLogFil(var tekst : string);
     function TjekKoreliste(var RuteNummer, Koreliste : string) : string;
+    procedure VisAlarmSkaerm(var List1msg: string);
 
   public
     { Public declarations }
@@ -1246,16 +1247,7 @@
        end
        else
        begin
-        //ShowMessage('Ændring ikke tilladt');
-        // Her skal komme en 'rød skærm' alarm
-         PlaySound(PWideChar(AlarmLyd));
-         List1msg := Stregkode + ' kan ikke vælges på dette scanningsted';
-         ListBox1.Items.Insert(0,List1Msg);
-         MainForm.Color := clRed;
-         RuteNummerST.Caption := '';
-         BoghandlerNavnST.Caption := '';
-         KommentarST.Caption := List1msg;
-         PakkeshopNulstil.Visible := true;
+          VisAlarmSkaerm(List1msg);
        end;
        Stregkode := '';
        StregkodeST.Caption := StregKode;
@@ -1270,17 +1262,7 @@
        end
        else
        begin
-        //ShowMessage('Ændring ikke tilladt');
-        // Her skal komme en 'rød skærm' alarm
-         PlaySound(PWideChar(AlarmLyd));
-         List1msg := Stregkode + ' kan ikke vælges på dette scanningsted';
-         ListBox1.Items.Insert(0,List1Msg);
-         MainForm.Color := clRed;
-         RuteNummerST.Caption := '';
-         BoghandlerNavnST.Caption := '';
-
-         KommentarST.Caption := List1msg;
-         PakkeshopNulstil.Visible := true;
+          VisAlarmSkaerm(List1msg);
        end;
        Stregkode := '';
        StregkodeST.Caption := StregKode;
@@ -1302,16 +1284,7 @@
        end
        else
        begin
-        //ShowMessage('Ændring ikke tilladt');
-        // Her skal komme en 'rød skærm' alarm
-         PlaySound(PWideChar(AlarmLyd));
-         List1msg := Stregkode + ' kan ikke vælges på dette scanningsted';
-         ListBox1.Items.Insert(0,List1Msg);
-         MainForm.Color := clRed;
-         RuteNummerST.Caption := '';
-         BoghandlerNavnST.Caption := '';
-         KommentarST.Caption := List1msg;
-         PakkeshopNulstil.Visible := true;
+          VisAlarmSkaerm(List1msg);
        end;
        Stregkode := '';
        StregkodeST.Caption := StregKode;
@@ -1333,16 +1306,7 @@
       end
       else
       begin
-        //ShowMessage('Ændring ikke tilladt');
-        // Her skal komme en 'rød skærm' alarm
-         PlaySound(PWideChar(AlarmLyd));
-         List1msg := Stregkode + ' kan ikke vælges på dette scanningsted';
-         ListBox1.Items.Insert(0,List1Msg);
-         MainForm.Color := clRed;
-         RuteNummerST.Caption := '';
-         BoghandlerNavnST.Caption := '';
-         KommentarST.Caption := List1msg;
-         PakkeshopNulstil.Visible := true;
+        VisAlarmSkaerm(List1msg);
       end;
       Stregkode := '';
       StregkodeST.Caption := StregKode;
@@ -1357,16 +1321,7 @@
        end
        else
        begin
-        //ShowMessage('Ændring ikke tilladt');
-        // Her skal komme en 'rød skærm' alarm
-         PlaySound(PWideChar(AlarmLyd));
-         List1msg := Stregkode + ' kan ikke vælges på dette scanningsted';
-         ListBox1.Items.Insert(0,List1Msg);
-         MainForm.Color := clRed;
-         RuteNummerST.Caption := '';
-         BoghandlerNavnST.Caption := '';
-         KommentarST.Caption := List1msg;
-         PakkeshopNulstil.Visible := true;
+          VisAlarmSkaerm(List1msg);
        end;
        Stregkode := '';
        StregkodeST.Caption := StregKode;
@@ -1382,18 +1337,7 @@
        end
        else
        begin
-        //ShowMessage('Ændring ikke tilladt');
-        // Her skal komme en 'rød skærm' alarm
-         PlaySound(PWideChar(AlarmLyd));
-         List1msg := Stregkode + ' kan ikke vælges på dette scanningsted';
-         ListBox1.Items.Insert(0,List1Msg);
-         MainForm.Color := clRed;
-
-         RuteNummerST.Caption := '';
-         BoghandlerNavnST.Caption := '';
-
-         KommentarST.Caption := List1msg;
-         PakkeshopNulstil.Visible := true;
+        VisAlarmSkaerm(List1msg);
        end;
        Stregkode := '';
        StregkodeST.Caption := StregKode;
@@ -1408,18 +1352,7 @@
        end
        else
        begin
-        //ShowMessage('Ændring ikke tilladt');
-        // Her skal komme en 'rød skærm' alarm
-         PlaySound(PWideChar(AlarmLyd));
-         List1msg := Stregkode + ' kan ikke vælges på dette scanningsted';
-         ListBox1.Items.Insert(0,List1Msg);
-         MainForm.Color := clRed;
-
-         RuteNummerST.Caption := '';
-         BoghandlerNavnST.Caption := '';
-
-         KommentarST.Caption := List1msg;
-         PakkeshopNulstil.Visible := true;
+          VisAlarmSkaerm(List1msg);
        end;
        Stregkode := '';
        StregkodeST.Caption := StregKode;
@@ -1434,18 +1367,7 @@
        end
        else
        begin
-        //ShowMessage('Ændring ikke tilladt');
-        // Her skal komme en 'rød skærm' alarm
-         PlaySound(PWideChar(AlarmLyd));
-         List1msg := Stregkode + ' kan ikke vælges på dette scanningsted';
-         ListBox1.Items.Insert(0,List1Msg);
-         MainForm.Color := clRed;
-
-         RuteNummerST.Caption := '';
-         BoghandlerNavnST.Caption := '';
-
-         KommentarST.Caption := List1msg;
-         PakkeshopNulstil.Visible := true;
+          VisAlarmSkaerm(List1msg);
        end;
        Stregkode := '';
        StregkodeST.Caption := StregKode;
@@ -1460,18 +1382,7 @@
        end
        else
        begin
-        //ShowMessage('Ændring ikke tilladt');
-        // Her skal komme en 'rød skærm' alarm
-         PlaySound(PWideChar(AlarmLyd));
-         List1msg := Stregkode + ' kan ikke vælges på dette scanningsted';
-         ListBox1.Items.Insert(0,List1Msg);
-         MainForm.Color := clRed;
-
-         RuteNummerST.Caption := '';
-         BoghandlerNavnST.Caption := '';
-
-         KommentarST.Caption := List1msg;
-         PakkeshopNulstil.Visible := true;
+          VisAlarmSkaerm(List1msg);
        end;
        Stregkode := '';
        StregkodeST.Caption := StregKode;
@@ -1486,18 +1397,7 @@
        end
        else
        begin
-        //ShowMessage('Ændring ikke tilladt');
-        // Her skal komme en 'rød skærm' alarm
-         PlaySound(PWideChar(AlarmLyd));
-         List1msg := Stregkode + ' kan ikke vælges på dette scanningsted';
-         ListBox1.Items.Insert(0,List1Msg);
-         MainForm.Color := clRed;
-
-         RuteNummerST.Caption := '';
-         BoghandlerNavnST.Caption := '';
-
-         KommentarST.Caption := List1msg;
-         PakkeshopNulstil.Visible := true;
+          VisAlarmSkaerm(List1msg);
        end;
        Stregkode := '';
        StregkodeST.Caption := StregKode;
@@ -1512,18 +1412,7 @@
        end
        else
        begin
-        //ShowMessage('Ændring ikke tilladt');
-        // Her skal komme en 'rød skærm' alarm
-         PlaySound(PWideChar(AlarmLyd));
-         List1msg := Stregkode + ' kan ikke vælges på dette scanningsted';
-         ListBox1.Items.Insert(0,List1Msg);
-         MainForm.Color := clRed;
-
-         RuteNummerST.Caption := '';
-         BoghandlerNavnST.Caption := '';
-
-         KommentarST.Caption := List1msg;
-         PakkeshopNulstil.Visible := true;
+          VisAlarmSkaerm(List1msg);
        end;
        Stregkode := '';
        StregkodeST.Caption := StregKode;
@@ -5393,6 +5282,20 @@
   result := svar;
 end;
 
+procedure TMainForm.VisAlarmSkaerm(var List1msg: string);
+begin
+  //ShowMessage('Ændring ikke tilladt');
+  // Her skal komme en 'rød skærm' alarm
+  PlaySound(PWideChar(AlarmLyd));
+  List1msg := Stregkode + ' kan ikke vælges på dette scanningsted';
+  ListBox1.Items.Insert(0, List1Msg);
+  MainForm.Color := clRed;
+  RuteNummerST.Caption := '';
+  BoghandlerNavnST.Caption := '';
+  KommentarST.Caption := List1msg;
+  PakkeshopNulstil.Visible := true;
+end;
+
 function TMainForm.getProddato() : TDate;
 var
    idag, imorgen : TDateTime;