Index: AAPClient/UI/PopupScherm.pas
===================================================================
diff -u -r240 -r241
--- AAPClient/UI/PopupScherm.pas	(.../PopupScherm.pas)	(revision 240)
+++ AAPClient/UI/PopupScherm.pas	(.../PopupScherm.pas)	(revision 241)
@@ -5,7 +5,7 @@
 uses
   Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
   Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Imaging.pngimage,
-  Vcl.ExtCtrls;
+  Vcl.ExtCtrls, DimmerForm;
 
 type
   TfmPopupScherm = class(TForm)
@@ -25,8 +25,9 @@
     procedure imgActie2Click(Sender: TObject);
     procedure lblActie1Click(Sender: TObject);
     procedure lblActie2Click(Sender: TObject);
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
   private
-    { Private declarations }
+    fDimmerForm: TfmDimmerForm;
   public
     { Public declarations }
   end;
@@ -37,13 +38,16 @@
 implementation
 
 uses
-  Images, DimmerForm;
+  Images;
 
 {$R *.dfm}
 
+procedure TfmPopupScherm.FormClose(Sender: TObject; var Action: TCloseAction);
+begin
+  fDimmerForm.Close;
+end;
+
 procedure TfmPopupScherm.FormShow(Sender: TObject);
-var
-  fDimmerForm: TfmDimmerform;
 begin
   fDimmerForm := TfmDimmerform.Create(Self);
   fDimmerForm.Left := Self.Left - 40;