Index: ProScan/UI/InfoLogScherm.pas
===================================================================
diff -u -r396 -r477
--- ProScan/UI/InfoLogScherm.pas	(.../InfoLogScherm.pas)	(revision 396)
+++ ProScan/UI/InfoLogScherm.pas	(.../InfoLogScherm.pas)	(revision 477)
@@ -72,12 +72,15 @@
 var
   Response: DnaCodeAfmeldenResponse;
   fWaarschuwingModalResult: TModalResult;
+  fAgent: TAgent;
 begin
   Self.ModalResult := mrInfoLog;
   fWaarschuwingModalResult := ToonPopupScherm('Scan ongedaan maken?'+#13#10+sgToeleveringData.Rows[sgToeleveringData.Row][0],'Ja','Nee',14,6,7);
 
   if fWaarschuwingModalResult = mrYes then begin
-    Response := TAgent.Create(UiContext).DnaCodeAfmelden(sgToeleveringData.Rows[sgToeleveringData.Row][2], UiContext.Toelevering, sgToeleveringData.Rows[sgToeleveringData.Row][1], -1,'');
+    fAgent := TAgent.Create(UiContext);
+    Response := fAgent.DnaCodeAfmelden(sgToeleveringData.Rows[sgToeleveringData.Row][2], UiContext.Toelevering, sgToeleveringData.Rows[sgToeleveringData.Row][1], -1,'');
+    fAgent.Free;
     try
       if Response.Header.Status <> '200' then begin
         ToonPopupScherm(Response.Header.Omschrijving, 'Probeer opnieuw','')
@@ -145,8 +148,11 @@
 function TfmInfoLogScherm.ToeleveringDataOphalen: ZoekViaToeleveringResponse;
 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','')
@@ -171,8 +177,11 @@
   fAantalGescand: integer;
   fAantalDnaCodes: integer;
   fDnaCodeTeller: integer;
+  fAgent: TAgent;
 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','')