Index: PlanScan/Main.pas
===================================================================
diff -u -r370 -r411
--- PlanScan/Main.pas	(.../Main.pas)	(revision 370)
+++ PlanScan/Main.pas	(.../Main.pas)	(revision 411)
@@ -22,7 +22,7 @@
     tsGebruikers: TTabSheet;
     lblInitialen: TLabel;
     lblUitloggen: TLabel;
-    lblWegwerppallet: TLabel;
+    lblKlantinstellingen: TLabel;
     lblDnaCodes: TLabel;
     lblGebruikers: TLabel;
     frmDnaCodes: TfrmDnaCodes;
@@ -34,7 +34,7 @@
     procedure lblUitloggenClick(Sender: TObject);
     procedure lblDnaCodesClick(Sender: TObject);
     procedure lblGebruikersClick(Sender: TObject);
-    procedure lblWegwerppalletClick(Sender: TObject);
+    procedure lblKlantinstellingenClick(Sender: TObject);
     procedure frmDnaCodesbtnZoekenClick(Sender: TObject);
   private
     fUiContext: TUiContext;
@@ -97,7 +97,7 @@
   ZetLinkseKnopGrijs(1)
 end;
 
-procedure TfmMain.lblWegwerppalletClick(Sender: TObject);
+procedure TfmMain.lblKlantinstellingenClick(Sender: TObject);
 begin
   frmKlantinstellingen.ZoekAlleKlantinstellingen;
   pcFrames.ActivePage := tsKlantinstellingen;
@@ -155,11 +155,11 @@
 begin
   lblDnaCodes.Color := $001717CD;
   lblGebruikers.Color := $001717CD;
-  lblWegwerpPallet.Color := $001717CD;
+  lblKlantinstellingen.Color := $001717CD;
   case knopIndex of
     0: lblDnaCodes.Color := clGray;
     1: lblGebruikers.Color := clGray;
-    2: lblWegwerpPallet.Color := clGray;
+    2: lblKlantinstellingen.Color := clGray;
   end;
   Repaint;
 end;