Index: AAPClient/UI/PopupScherm.pas
===================================================================
diff -u -r116 -r139
--- AAPClient/UI/PopupScherm.pas	(.../PopupScherm.pas)	(revision 116)
+++ AAPClient/UI/PopupScherm.pas	(.../PopupScherm.pas)	(revision 139)
@@ -10,11 +10,13 @@
 type
   TfmPopupScherm = class(TForm)
     lblWaarschuwing: TLabel;
-    Image1: TImage;
+    imgUitroepteken: TImage;
     pnlbtnActie1: TPanel;
     pnlbtnActie2: TPanel;
+    imgVraagteken: TImage;
     procedure pnlbtnActie1Click(Sender: TObject);
     procedure FormShow(Sender: TObject);
+    procedure pnlbtnActie2Click(Sender: TObject);
   private
     { Private declarations }
   public
@@ -44,4 +46,9 @@
   Close;
 end;
 
+procedure TfmPopupScherm.pnlbtnActie2Click(Sender: TObject);
+begin
+  Close;
+end;
+
 end.