Index: ProScan/UI/PalletScherm.pas
===================================================================
diff -u -r530 -r626
--- ProScan/UI/PalletScherm.pas	(.../PalletScherm.pas)	(revision 530)
+++ ProScan/UI/PalletScherm.pas	(.../PalletScherm.pas)	(revision 626)
@@ -73,10 +73,14 @@
       end else begin
         //enkel leegmaken indien de huidige toelevering al compleet is
         fAgent := TAgent.Create(UiContext);
-        fZoekViaToeleveringResponse := fAgent.ZoekViaToelevering(UiContext.Toelevering);
-        fAgent.Free;
-        if fZoekViaToeleveringResponse.AantalInToelevering = fZoekViaToeleveringResponse.AantalReedsGescand then
-          UiContext.Toelevering := '';
+        try
+          fZoekViaToeleveringResponse := fAgent.ZoekViaToelevering(UiContext.Toelevering);
+          if fZoekViaToeleveringResponse.AantalInToelevering = fZoekViaToeleveringResponse.AantalReedsGescand then
+            UiContext.Toelevering := '';
+        finally
+          fAgent.Free;
+          fZoekViaToeleveringResponse.Free;
+        end;
         Self.ModalResult := mrDnaCode;
       end;
     finally