Index: PlanScan/Main.pas
===================================================================
diff -u -r353 -r354
--- PlanScan/Main.pas	(.../Main.pas)	(revision 353)
+++ PlanScan/Main.pas	(.../Main.pas)	(revision 354)
@@ -26,7 +26,6 @@
     lblWegwerppallet: TLabel;
     lblDnaCodes: TLabel;
     lblGebruikers: TLabel;
-    procedure tsGebruikersShow(Sender: TObject);
     procedure FormCreate(Sender: TObject);
     procedure FormShow(Sender: TObject);
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
@@ -144,13 +143,6 @@
   HuidigeGebruikerAfmelden();
 end;
 
-procedure TfmMain.tsGebruikersShow(Sender: TObject);
-begin
-  UiContext.LoginCode := '1513';
-  UiContext.Initialen := 'TSN';
-  //ZoekAlleGebruikers();
-end;
-
 procedure TfmMain.ZetLinkseKnopGrijs(knopIndex: integer);
 begin
   lblDnaCodes.Color := $001717CD;