Index: ProScan/UI/PalletScherm.pas
===================================================================
diff -u -r402 -r403
--- ProScan/UI/PalletScherm.pas	(.../PalletScherm.pas)	(revision 402)
+++ ProScan/UI/PalletScherm.pas	(.../PalletScherm.pas)	(revision 403)
@@ -22,7 +22,6 @@
     procedure FormActivate(Sender: TObject);
     procedure FormHide(Sender: TObject);
   private
-    fAgent: TAgent;
     fBlPallet: TBlPallet;
     procedure SetContext;
     procedure SetModus(GescandeInput: string);
@@ -112,9 +111,6 @@
 end;
 
 procedure TfmPalletScherm.btnGenereerTbpClick(Sender: TObject);
-var
-  fGeefVolgendeTbpCodeResponse: GeefVolgendeTbpCodeResponse;
-  fGegenereerdeTbp: string;
 begin
   inherited;
   try