Index: AAPClient/UI/PopupScherm.pas
===================================================================
diff -u -r140 -r142
--- AAPClient/UI/PopupScherm.pas	(.../PopupScherm.pas)	(revision 140)
+++ AAPClient/UI/PopupScherm.pas	(.../PopupScherm.pas)	(revision 142)
@@ -10,13 +10,18 @@
 type
   TfmPopupScherm = class(TForm)
     lblWaarschuwing: TLabel;
-    imgUitroepteken: TImage;
     pnlbtnActie1: TPanel;
     pnlbtnActie2: TPanel;
+    imgActie1: TImage;
+    imgActie2: TImage;
+    pnlGroteImage: TPanel;
     imgVraagteken: TImage;
+    imgUitroepteken: TImage;
     procedure pnlbtnActie1Click(Sender: TObject);
     procedure FormShow(Sender: TObject);
     procedure pnlbtnActie2Click(Sender: TObject);
+    procedure imgActie1Click(Sender: TObject);
+    procedure imgActie2Click(Sender: TObject);
   private
     { Private declarations }
   public
@@ -41,6 +46,18 @@
   fDimmerForm.Show;
 end;
 
+procedure TfmPopupScherm.imgActie1Click(Sender: TObject);
+begin
+  ModalResult := mrYes;
+  CloseModal;
+end;
+
+procedure TfmPopupScherm.imgActie2Click(Sender: TObject);
+begin
+  ModalResult := mrNo;
+  CloseModal;
+end;
+
 procedure TfmPopupScherm.pnlbtnActie1Click(Sender: TObject);
 begin
   ModalResult := mrYes;