Index: AAPClient/UI/DnaCodeScherm.pas
===================================================================
diff -u -r183 -r185
--- AAPClient/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 183)
+++ AAPClient/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 185)
@@ -70,7 +70,7 @@
   if lblAantalGescand.Caption = lblTotaalAantal.Caption then begin
     ZetToeleveringStatus(DnaCodeStatus.InBuffer);
   end else begin
-    fWaarschuwingModalResult := ToonPopupScherm('Onvolledige toelevering','Scan'+#13#10+'DNA-codes','Nieuwe'+#13#10+'toelevering');
+    fWaarschuwingModalResult := ToonPopupScherm('Onvolledige toelevering','Scan'+#13#10+'DNA-codes','Nieuwe'+#13#10+'toelevering',18);
     if fWaarschuwingModalResult = mrYes then begin
       Self.ModalResult := mrDnaCode;
     end else begin