Index: ProScan/UI/HernoemPalletScherm.pas
===================================================================
diff -u -r471 -r478
--- ProScan/UI/HernoemPalletScherm.pas	(.../HernoemPalletScherm.pas)	(revision 471)
+++ ProScan/UI/HernoemPalletScherm.pas	(.../HernoemPalletScherm.pas)	(revision 478)
@@ -133,8 +133,11 @@
 function TfmHernoemPalletScherm.CheckBestaandeDnaCode(Code: string): boolean;
 var
   Response: ZoekViaDnaCodeResponse;
+  fAgent: TAgent;
 begin
-  Response := TAgent.Create(UiContext).ZoekViaDnaCode(Code);
+  fAgent := TAgent.Create(UiContext);
+  Response := fAgent.ZoekViaDnaCode(Code);
+  fAgent.Free;
   try
     if Response.Header.Status <> '200' then begin
       result := false
@@ -173,11 +176,14 @@
 function TfmHernoemPalletScherm.HernoemPallet(OudeCode, NieuweCode: string): HernoemPalletResponse;
 var
   Response: HernoemPalletResponse;
+  fAgent: TAgent;
 begin
   if not TCommonFunctions.IsKaderdeurLocatie(NieuweCode) then
     NieuweCode := upperCase(NieuweCode);
 
-  Response := TAgent.Create(UiContext).HernoemPallet(OudeCode, NieuweCode, fEnkelDezeDnaCode);
+  fAgent := TAgent.Create(UiContext);
+  Response := fAgent.HernoemPallet(OudeCode, NieuweCode, fEnkelDezeDnaCode);
+  fAgent.Free;
   try
     if Response.Header.Status <> '200' then begin
       ToonPopupScherm(Response.Header.Omschrijving, 'Probeer opnieuw','') ;