Index: AAPClient/UI/PopupScherm.pas
===================================================================
diff -u -r324 -r395
--- AAPClient/UI/PopupScherm.pas	(.../PopupScherm.pas)	(revision 324)
+++ AAPClient/UI/PopupScherm.pas	(.../PopupScherm.pas)	(revision 395)
@@ -20,6 +20,7 @@
     lblActie2: TLabel;
     dbgPopup: TDBGrid;
     dsPopup: TDataSource;
+    tmrAutoSluiten: TTimer;
     procedure pnlbtnActie1Click(Sender: TObject);
     procedure FormShow(Sender: TObject);
     procedure pnlbtnActie2Click(Sender: TObject);
@@ -28,6 +29,7 @@
     procedure lblActie1Click(Sender: TObject);
     procedure lblActie2Click(Sender: TObject);
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
+    procedure tmrAutoSluitenTimer(Sender: TObject);
   private
     fDimmerForm: TfmDimmerForm;
   public
@@ -55,6 +57,7 @@
   fDimmerForm.Enabled := false;
   fDimmerForm.Left := Self.Left - 40;
   fDimmerForm.Top := Self.Top - 40;
+  tmrAutoSluiten.Enabled := true;
   fDimmerForm.Show;
 end;
 
@@ -94,4 +97,10 @@
   CloseModal;
 end;
 
+procedure TfmPopupScherm.tmrAutoSluitenTimer(Sender: TObject);
+begin
+  if lblActie1.Color = clGreen then
+    Close;
+end;
+
 end.