--- dao/DelphiScanner/Main.pas	2015/08/23 14:02:55	2657
+++ dao/DelphiScanner/Main.pas	2015/08/23 14:08:08	2658
@@ -1473,19 +1473,7 @@
         or (Pakkescanningtype = '5') and (PanelValg5.Enabled = false)
         or (Pakkescanningtype = '6') and (PanelValg6.Enabled = false)  ) then
     begin   // Her skal komme en alarm og rød skærm
-       PlaySound(PWideChar(AlarmLyd));
-       List1msg := 'Pakketype ' + Pakketype + ' kan ikke scannes på dette scanningsted';
-       ListBox1.Items.Insert(0,List1Msg);
-       MainForm.Color := clRed;
-
-       RuteNummerST.Caption := '';
-       BoghandlerNavnST.Caption := '';
-
-       KommentarST.Caption := List1msg;
-       PakkeshopNulstil.Visible := true;
-
-       StregKode := '';
-       StregkodeST.Caption := StregKode;
+       VisAlarmSkaerm(List1msg);
 
        exit;
     end;