Index: AAPClient/UI/PopupScherm.dfm
===================================================================
diff -u -r178 -r212
--- AAPClient/UI/PopupScherm.dfm	(.../PopupScherm.dfm)	(revision 178)
+++ AAPClient/UI/PopupScherm.dfm	(.../PopupScherm.dfm)	(revision 212)
@@ -11,6 +11,7 @@
   Font.Height = -16
   Font.Name = 'Tahoma'
   Font.Style = []
+  FormStyle = fsStayOnTop
   OldCreateOrder = False
   Position = poOwnerFormCenter
   OnShow = FormShow
Index: AAPClient/UI/DimmerForm.pas
===================================================================
diff -u -r115 -r212
--- AAPClient/UI/DimmerForm.pas	(.../DimmerForm.pas)	(revision 115)
+++ AAPClient/UI/DimmerForm.pas	(.../DimmerForm.pas)	(revision 212)
@@ -22,7 +22,6 @@
 
 {$R *.dfm}
 
-
 procedure TfmDimmerForm.Display;
 begin
   with Self do
@@ -33,10 +32,8 @@
     Height := Application.MainForm.Height;
     Show;
   end;
-
 end;
 
-
 procedure TfmDimmerForm.FormCreate(Sender: TObject);
 begin
   AlphaBlend := true;