Index: AAPClient/UI/DnaCodeReedsGescandScherm.pas
===================================================================
diff -u -r162 -r170
--- AAPClient/UI/DnaCodeReedsGescandScherm.pas	(.../DnaCodeReedsGescandScherm.pas)	(revision 162)
+++ AAPClient/UI/DnaCodeReedsGescandScherm.pas	(.../DnaCodeReedsGescandScherm.pas)	(revision 170)
@@ -19,6 +19,8 @@
     imgAnnuleren: TImage;
     lblAnnuleren: TLabel;
     procedure FormShow(Sender: TObject);
+    procedure imgAnnulerenClick(Sender: TObject);
+    procedure pnlAnnulerenClick(Sender: TObject);
   private
     { Private declarations }
   public
@@ -30,6 +32,9 @@
 
 implementation
 
+uses
+  UiContext;
+
 {$R *.dfm}
 
 procedure TfmDnaCodeReedsGescandScherm.FormShow(Sender: TObject);
@@ -40,4 +45,16 @@
   fImagesScherm.ilAlgemeen128.GetIcon(2, imgAnnuleren.Picture.Icon);
 end;
 
+procedure TfmDnaCodeReedsGescandScherm.imgAnnulerenClick(Sender: TObject);
+begin
+  inherited;
+  Self.ModalResult := mrDnaCode;
+end;
+
+procedure TfmDnaCodeReedsGescandScherm.pnlAnnulerenClick(Sender: TObject);
+begin
+  inherited;
+  Self.ModalResult := mrDnaCode;
+end;
+
 end.