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','') ;
Index: ProScan/UI/HernoemPalletScherm.dfm
===================================================================
diff -u -r471 -r478
--- ProScan/UI/HernoemPalletScherm.dfm	(.../HernoemPalletScherm.dfm)	(revision 471)
+++ ProScan/UI/HernoemPalletScherm.dfm	(.../HernoemPalletScherm.dfm)	(revision 478)
@@ -49,6 +49,10 @@
     object tsOudeCode: TTabSheet
       Caption = 'tsOudeCode'
       TabVisible = False
+      ExplicitLeft = 0
+      ExplicitTop = 0
+      ExplicitWidth = 0
+      ExplicitHeight = 0
       object lblOudeCode: TLabel
         Left = 13
         Top = 248
@@ -674,6 +678,10 @@
       Caption = 'tsNieuweCode'
       ImageIndex = 2
       TabVisible = False
+      ExplicitLeft = 0
+      ExplicitTop = 0
+      ExplicitWidth = 0
+      ExplicitHeight = 0
       object lblNieuweCode: TLabel
         Left = 13
         Top = 207