Index: AAPClient/UI/PalletScherm.pas
===================================================================
diff -u -r31 -r32
--- AAPClient/UI/PalletScherm.pas	(.../PalletScherm.pas)	(revision 31)
+++ AAPClient/UI/PalletScherm.pas	(.../PalletScherm.pas)	(revision 32)
@@ -28,7 +28,7 @@
 implementation
 
 uses
-  DnaCodeService, PopupScherm;
+  DnaCodeService;
 
 {$R *.dfm}
 
@@ -44,7 +44,6 @@
   Request: ValideerPalletCodeRequest;
   Response: ValideerPalletCodeResponse;
   Header: RequestHeader;
-  PopupScherm: TfmPopupScherm;
 begin
   Service := DnaCodeService.GetDnaCodeServiceSoap();
   // request opbouwen
@@ -60,10 +59,7 @@
     try
       if Response.Header.Status <> '200' then begin
         Self.ModalResult := mrRetry;
-        PopupScherm := TfmPopupScherm.Create(self);
-        PopupScherm.lblWaarschuwing.Caption := Response.Header.Omschrijving;
-        PopupScherm.btnPopupActie.Caption := 'Scan opnieuw';
-        PopupScherm.ShowModal;
+        ToonPopupScherm(Response.Header.Omschrijving, 'Scan opnieuw')
       end else begin
         Self.ModalResult := mrOk;
       end;