Index: ProScan/UI/BestaandePalletScherm.pas
===================================================================
diff -u -r424 -r476
--- ProScan/UI/BestaandePalletScherm.pas	(.../BestaandePalletScherm.pas)	(revision 424)
+++ ProScan/UI/BestaandePalletScherm.pas	(.../BestaandePalletScherm.pas)	(revision 476)
@@ -42,10 +42,14 @@
 end;
 
 procedure TfmBestaandePalletScherm.btnVervolledigenClick(Sender: TObject);
+var
+  fAgent: TAgent;
 begin
   inherited;
   if (BepaalAantalToeleveringenOpPallet(UiContext.Pallet) = 1) then begin
-    UiContext.Toelevering := TAgent.Create(UiContext).ZoekViaPalletCode(UiContext.Pallet).DnaCodes[0].Toelevering;
+    fAgent := TAgent.Create(UiContext);
+    UiContext.Toelevering := fAgent.ZoekViaPalletCode(UiContext.Pallet).DnaCodes[0].Toelevering;
+    fAgent.Free;
   end else if (BepaalAantalToeleveringenOpPallet(UiContext.Pallet) > 1) then begin
     UiContext.Toelevering := '';
   end;
@@ -76,8 +80,11 @@
   Response: ZoekViaPalletCodeResponse;
   DnaCodeTeller: integer;
   ToeleveringStringList: TStringList;
+  fAgent: TAgent;
 begin
-  Response := TAgent.Create(UiContext).ZoekViaPalletCode(UiContext.Pallet);
+  fAgent := TAgent.Create(UiContext);
+  Response := fAgent.ZoekViaPalletCode(UiContext.Pallet);
+  fAgent.Free;
   DnaCodeTeller := 0;
   try
     if Response.Header.Status = '200' then begin