Index: ProScan/BL/BlPallet.pas
===================================================================
diff -u -r402 -r403
--- ProScan/BL/BlPallet.pas	(.../BlPallet.pas)	(revision 402)
+++ ProScan/BL/BlPallet.pas	(.../BlPallet.pas)	(revision 403)
@@ -3,9 +3,10 @@
 interface
 
 uses
-  UiContext, Agent;
+  DnaCodeService, UiContext, Agent;
 
 type
+
   TBlPallet = Class
     private
       fUiContext: TUiContext;
@@ -20,17 +21,14 @@
 implementation
 
 uses
-  DnaCodeService, CommonFunctions, SysUtils;
+  CommonFunctions, SysUtils;
 
 { TBlPallet }
 
 constructor TBlPallet.Create(aUiContext: TUiContext; aAgent: TAgent);
 begin
   fUiContext := aUiContext;
-  if assigned(aAgent) then
-    fAgent := aAgent
-  else
-    fAgent := TAgent.Create(fUiContext);
+  fAgent := TAgent.Create(fUiContext);
 end;
 
 function TBlPallet.GenereerTbp: string;
@@ -51,7 +49,7 @@
   SetContext(result);
   finally
     fGeefVolgendeTbpCodeResponse.Free;
-  end;;
+  end;
 end;
 
 procedure TBlPallet.SetContext(GescandeWaarde: string);