Index: AAPClient/UI/PopupScherm.pas
===================================================================
diff -u -r139 -r140
--- AAPClient/UI/PopupScherm.pas	(.../PopupScherm.pas)	(revision 139)
+++ AAPClient/UI/PopupScherm.pas	(.../PopupScherm.pas)	(revision 140)
@@ -43,12 +43,14 @@
 
 procedure TfmPopupScherm.pnlbtnActie1Click(Sender: TObject);
 begin
-  Close;
+  ModalResult := mrYes;
+  CloseModal;
 end;
 
 procedure TfmPopupScherm.pnlbtnActie2Click(Sender: TObject);
 begin
-  Close;
+  ModalResult := mrNo;
+  CloseModal;
 end;
 
 end.