Index: AAPClient/UI/DnaCodeScherm.pas
===================================================================
diff -u -r128 -r144
--- AAPClient/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 128)
+++ AAPClient/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 144)
@@ -68,11 +68,11 @@
   if lblAantalGescand.Caption = lblTotaalAantal.Caption then begin
     ZetToeleveringStatus(DnaCodeStatus.InBuffer);
   end else begin
-    fWaarschuwingModalResult := ToonPopupScherm('Onvolledige toelevering','Scan DNA-codes','Nieuwe toelevering');
+    fWaarschuwingModalResult := ToonPopupScherm('Onvolledige toelevering','Scan'+#13#10+'DNA-codes','Nieuwe'+#13#10+'toelevering');
     if fWaarschuwingModalResult = mrOk then begin
       Self.ModalResult := mrDnaCode;
     end else begin
-      fWaarschuwingModalResult := ToonPopupScherm('Nieuwe toelevering starten?','Ja','Nee');
+      fWaarschuwingModalResult := ToonPopupScherm('Nieuwe toelevering starten?','Ja','Nee',true,6,7);
       if fWaarschuwingModalResult = mrOk then begin
         ZetToeleveringStatus(DnaCodeStatus.OnHold);
         Self.ModalResult := mrPallet;