Index: ProScan/UI/DnaCodeScherm.pas
===================================================================
diff -u -r681 -r682
--- ProScan/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 681)
+++ ProScan/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 682)
@@ -602,10 +602,10 @@
 
     ii := 0;
     if not UiContext.IsExportPopupGetoond then begin
+      fAgent := TAgent.Create(UiContext);
+      fBewerkKlantinstellingenResponse := fAgent.BewerkKlantinstellingen('List','',false, false, false, false);
+      fAgent.Free;
       try
-        fAgent := TAgent.Create(UiContext);
-        fBewerkKlantinstellingenResponse := fAgent.BewerkKlantinstellingen('List','',false, false, false, false);
-        fAgent.Free;
         while ii <= length(fBewerkKlantinstellingenResponse.Klantinstellingen)-1 do begin
           if fBewerkKlantinstellingenResponse.Klantinstellingen[ii].KlantId = DnaCodes[fIndexEersteRelevanteDnaCode].KlantNummer then begin
              if fBewerkKlantinstellingenResponse.Klantinstellingen[ii].IsExport then begin
@@ -625,10 +625,10 @@
 
     ii := 0;
     if not UiContext.IsBlumXsPopupGetoond then begin
+      fAgent := TAgent.Create(UiContext);
+      fBewerkKlantinstellingenResponse := fAgent.BewerkKlantinstellingen('List','',false, false, false, false);
+      fAgent.Free;
       try
-        fAgent := TAgent.Create(UiContext);
-        fBewerkKlantinstellingenResponse := fAgent.BewerkKlantinstellingen('List','',false, false, false, false);
-        fAgent.Free;
         while ii <= length(fBewerkKlantinstellingenResponse.Klantinstellingen)-1 do begin
           if fBewerkKlantinstellingenResponse.Klantinstellingen[ii].KlantId = DnaCodes[fIndexEersteRelevanteDnaCode].KlantNummer then begin
              if fBewerkKlantinstellingenResponse.Klantinstellingen[ii].IsBlumXs then begin