Index: ProScan/UI/DnaCodeScherm.pas
===================================================================
diff -u -r682 -r684
--- ProScan/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 682)
+++ ProScan/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 684)
@@ -314,8 +314,6 @@
 procedure TfmDnaCodeScherm.btnInfoClick(Sender: TObject);
 begin
   inherited;
-  UiContext.VanuitOnderdelen := false;
-
   if UiContext.Modus = modusVHOSS then begin
     UiContext.InfoLogSchermToonGescand := true;
     Self.ModalResult := mrInfoLog;
@@ -602,10 +600,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 +623,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