Index: ProScan/UI/DnaCodeScherm.pas
===================================================================
diff -u -r466 -r475
--- ProScan/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 466)
+++ ProScan/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 475)
@@ -205,10 +205,13 @@
 var
   fZoekViaPalletCodeResponse: ZoekViaPalletCodeResponse;
   fZoekAlleVhossLadesBijDnaCodeResponse: ZoekAlleVhossLadesBijDnaCodeResponse;
+  fAgent: TAgent;
 begin
   result := 0;
   if StartsText('O1',UiContext.Pallet) then begin
-    fZoekAlleVhossLadesBijDnaCodeResponse := TAgent.Create(UiContext).ZoekAlleVhossLadesBijDnaCode(UiContext.LaatsteDnaCode);
+    fAgent := TAgent.Create(UiContext);
+    fZoekAlleVhossLadesBijDnaCodeResponse := fAgent.ZoekAlleVhossLadesBijDnaCode(UiContext.LaatsteDnaCode);
+    fAgent.Free;
     try
       if fZoekAlleVhossLadesBijDnaCodeResponse.Header.Status = '200' then begin
         result := length(fZoekAlleVhossLadesBijDnaCodeResponse.DnaCodes);
@@ -220,7 +223,9 @@
       fZoekAlleVhossLadesBijDnaCodeResponse.Free;
     end;
   end else begin
-    fZoekViaPalletCodeResponse := TAgent.Create(UiContext).ZoekViaPalletCode(UiContext.Pallet);
+    fAgent := TAgent.Create(UiContext);
+    fZoekViaPalletCodeResponse := fAgent.ZoekViaPalletCode(UiContext.Pallet);
+    fAgent.Free;
     try
       if fZoekViaPalletCodeResponse.Header.Status = '200' then begin
         result := length(fZoekViaPalletCodeResponse.DnaCodes);
@@ -237,9 +242,12 @@
 function TfmDnaCodeScherm.BepaalDirecteLevering: boolean;
 var
   fDirecteLeveringResponse: DirecteLeveringResponse;
+  fAgent: TAgent;
 begin
   result := false;
-  fDirecteLeveringResponse := TAgent.Create(UiContext).IsDirecteLevering(UiContext.Toelevering);
+  fAgent := TAgent.Create(UiContext);
+  fDirecteLeveringResponse := fAgent.IsDirecteLevering(UiContext.Toelevering);
+  fAgent.Free;
   try
     if fDirecteLeveringResponse.Header.Status = '200' then begin
       result := fDirecteLeveringResponse.IsDirecteLevering;
@@ -285,6 +293,7 @@
   Response: DnaCodeAfmeldenResponse;
   List: TStrings;
   Locatie: string;
+  fAgent: TAgent;
 begin
   if edtDnaCode.Text = '' then
     exit;
@@ -298,7 +307,9 @@
     Locatie := ''
   end;
 
-  Response := TAgent.Create(UiContext).DnaCodeAfmelden(edtDnaCode.Text,UiContext.Toelevering,UiContext.Pallet,1,Locatie);
+  fAgent := TAgent.Create(UiContext);
+  Response := fAgent.DnaCodeAfmelden(edtDnaCode.Text,UiContext.Toelevering,UiContext.Pallet,1,Locatie);
+  fAgent.Free;
   try
     List := TStringList.Create;
     ExtractStrings([':'], [], PChar(Response.Header.Status), List);
@@ -333,8 +344,11 @@
   IsDirecteLevering: boolean);
 var
   Response: PalletBijwerkenResponse;
+  fAgent: TAgent;
 begin
-  Response := TAgent.Create(UiContext).PalletBijwerken(UiContext.Pallet,Status,IsDirecteLevering);
+  fAgent := TAgent.Create(UiContext);
+  Response := fAgent.PalletBijwerken(UiContext.Pallet,Status,IsDirecteLevering);
+  fAgent.Free;
   try
     if Response.Header.Status <> '200' then begin
       ToonPopupScherm(Response.Header.Omschrijving, 'Probeer opnieuw');
@@ -354,8 +368,11 @@
 procedure TfmDnaCodeScherm.ToeleveringDataOphalen;
 var
   Response: ZoekViaToeleveringResponse;
+  fAgent: TAgent;
 begin
-  Response := TAgent.Create(UiContext).ZoekViaToelevering(UiContext.Toelevering);
+  fAgent := TAgent.Create(UiContext);
+  Response := fAgent.ZoekViaToelevering(UiContext.Toelevering);
+  fAgent.Free;
   try
     if Response.Header.Status <> '200' then begin
       ToonPopupScherm(Response.Header.Omschrijving, 'Probeer opnieuw')
@@ -379,9 +396,12 @@
   fZoekAlleDnaCodesDieOpVhossMoetenResponse: ZoekAlleDnaCodesDieOpVhossMoetenResponse;
   fDnaCodeTeller: integer;
   fAantalGescand: integer;
+  fAgent: TAgent;
 begin
   if UiContext.LaatsteDnaCode = '' then begin
-    fZoekAlleDnaCodesDieOpVhossMoetenResponse := TAgent.Create(UiContext).ZoekAlleDnaCodesDieOpVhossMoeten(UiContext.Pallet);
+    fAgent := TAgent.Create(UiContext);
+    fZoekAlleDnaCodesDieOpVhossMoetenResponse := fAgent.ZoekAlleDnaCodesDieOpVhossMoeten(UiContext.Pallet);
+    fAgent.Free;
     try
       if fZoekAlleDnaCodesDieOpVhossMoetenResponse.Header.Status <> '200' then begin
         if fZoekAlleDnaCodesDieOpVhossMoetenResponse.Header.Status <> '-1021' then
@@ -409,7 +429,9 @@
       fZoekAlleDnaCodesDieOpVhossMoetenResponse.Free;
     end;
   end else begin
-    fZoekAlleVhossLadesBijDnaCodeResponse := TAgent.Create(UiContext).ZoekAlleVhossLadesBijDnaCode(UiContext.LaatsteDnaCode);
+    fAgent := TAgent.Create(UiContext);
+    fZoekAlleVhossLadesBijDnaCodeResponse := fAgent.ZoekAlleVhossLadesBijDnaCode(UiContext.LaatsteDnaCode);
+    fAgent.Free;
     try
       if fZoekAlleVhossLadesBijDnaCodeResponse.Header.Status <> '200' then begin
         ToonPopupScherm(fZoekAlleVhossLadesBijDnaCodeResponse.Header.Omschrijving, 'Probeer opnieuw')
@@ -442,6 +464,7 @@
 var
   fBewerkKlantinstellingenResponse: BewerkKlantinstellingenResponse;
   ii: integer;
+  fAgent: TAgent;
 begin
   if UiContext.Modus = modusDefault then begin
     if EersteDnaCode.IsDirecteLevering then begin
@@ -462,16 +485,22 @@
 
     ii := 0;
     if not UiContext.IsExportPopupGetoond then begin
-      fBewerkKlantinstellingenResponse := TAgent.Create(UiContext).BewerkKlantinstellingen('List','',false, false, false);
-      while ii <= length(fBewerkKlantinstellingenResponse.Klantinstellingen)-1 do begin
-        if fBewerkKlantinstellingenResponse.Klantinstellingen[ii].KlantId = EersteDnaCode.KlantNummer then begin
-           if fBewerkKlantinstellingenResponse.Klantinstellingen[ii].IsExport then begin
-              ToonPopupScherm('Export', 'OK','',21,-1,-1,clRed);
-              UiContext.IsExportPopupGetoond := true;
-              imgExport.Visible := true;
-           end;
+      try
+        fAgent := TAgent.Create(UiContext);
+        fBewerkKlantinstellingenResponse := fAgent.BewerkKlantinstellingen('List','',false, false, false);
+        fAgent.Free;
+        while ii <= length(fBewerkKlantinstellingenResponse.Klantinstellingen)-1 do begin
+          if fBewerkKlantinstellingenResponse.Klantinstellingen[ii].KlantId = EersteDnaCode.KlantNummer then begin
+             if fBewerkKlantinstellingenResponse.Klantinstellingen[ii].IsExport then begin
+                ToonPopupScherm('Export', 'OK','',21,-1,-1,clRed);
+                UiContext.IsExportPopupGetoond := true;
+                imgExport.Visible := true;
+             end;
+          end;
+          ii := ii + 1;
         end;
-        ii := ii + 1;
+      finally
+        fBewerkKlantinstellingenResponse.Free;
       end;
     end else begin
       imgExport.Visible := true;
@@ -518,11 +547,14 @@
   Response: RondAfKaderdeurDagResponse;
   cdsRondAfKaderdeurDag: TClientDataset;
   antwoordlijnTeller: integer;
+  fAgent: TAgent;
 begin
   if (UiContext.LaatsteDnaCode = '') then
     exit;
 
-  Response := TAgent.Create(UiContext).RondAfKaderdeurDag(UiContext.LaatsteDnaCode);
+  fAgent := TAgent.Create(UiContext);
+  Response := fAgent.RondAfKaderdeurDag(UiContext.LaatsteDnaCode);
+  fAgent.Free;
   cdsRondAfKaderdeurDag := TClientDataset.Create(self);
   cdsRondAfKaderdeurDag.FieldDefs.Add('Toelevering',ftString,20);
   cdsRondAfKaderdeurDag.FieldDefs.Add('Nog te scannen',ftInteger);
@@ -553,8 +585,11 @@
 procedure TfmDnaCodeScherm.ZetToeleveringStatus(Status: DnaCodeStatus; isDirecteLevering: boolean = false);
 var
   Response: ToeleveringBijwerkenResponse;
+  fAgent: TAgent;
 begin
-  Response := TAgent.Create(UiContext).ToeleveringBijwerken(UiContext.Toelevering,Status,isDirecteLevering);
+  fAgent := TAgent.Create(UiContext);
+  Response := fAgent.ToeleveringBijwerken(UiContext.Toelevering,Status,isDirecteLevering);
+  fAgent.Free;
   try
     if Response.Header.Status <> '200' then begin
       Self.ModalResult := mrDnaCode;
@@ -574,11 +609,14 @@
   DnaCodesStringList: TStringList;
   DnaCodes: ArrayOfDnaCodeDnaCode;
   ii: integer;
+  fAgent: TAgent;
 begin
   if not (System.StrUtils.LeftStr(UiContext.Pallet,3) = 'TBP') then
     exit;
 
-  fZoekViaPalletCodeResponse := TAgent.Create(UiContext).ZoekViaPalletCode(UiContext.Pallet);
+  fAgent := TAgent.Create(UiContext);
+  fZoekViaPalletCodeResponse := fAgent.ZoekViaPalletCode(UiContext.Pallet);
+  fAgent.Free;
   try
     if fZoekViaPalletCodeResponse.Header.Status = '200' then begin
       DnaCodes := fZoekViaPalletCodeResponse.DnaCodes;
@@ -593,7 +631,9 @@
       ii := ii + 1;
     end;
 
-    fProboxAfdrukkenResponse := TAgent.Create(UiContext).ProboxEtiketAfdrukken(DnaCodesStringList);
+    fAgent := TAgent.Create(UiContext);
+    fProboxAfdrukkenResponse := fAgent.ProboxEtiketAfdrukken(DnaCodesStringList);
+    fAgent.Free;
     try
       if fProboxAfdrukkenResponse.Header.Status <> '200' then begin
         Self.ModalResult := mrDnaCode;