Index: AAPClient/UI/PopupScherm.pas
===================================================================
diff -u -r114 -r116
--- AAPClient/UI/PopupScherm.pas	(.../PopupScherm.pas)	(revision 114)
+++ AAPClient/UI/PopupScherm.pas	(.../PopupScherm.pas)	(revision 116)
@@ -14,6 +14,7 @@
     pnlbtnActie1: TPanel;
     pnlbtnActie2: TPanel;
     procedure pnlbtnActie1Click(Sender: TObject);
+    procedure FormShow(Sender: TObject);
   private
     { Private declarations }
   public
@@ -26,10 +27,18 @@
 implementation
 
 uses
-  Images;
+  Images, DimmerForm;
 
 {$R *.dfm}
 
+procedure TfmPopupScherm.FormShow(Sender: TObject);
+var
+  fDimmerForm: TfmDimmerform;
+begin
+  fDimmerForm := TfmDimmerform.Create(Self);
+  fDimmerForm.Show;
+end;
+
 procedure TfmPopupScherm.pnlbtnActie1Click(Sender: TObject);
 begin
   Close;