Index: AAPClient/UI/DrieKnoppenScherm.pas
===================================================================
diff -u -r22 -r24
--- AAPClient/UI/DrieKnoppenScherm.pas	(.../DrieKnoppenScherm.pas)	(revision 22)
+++ AAPClient/UI/DrieKnoppenScherm.pas	(.../DrieKnoppenScherm.pas)	(revision 24)
@@ -56,17 +56,14 @@
   btnCentraalOnder.Images := fImagesScherm.ilAlgemeen32;
   btnRechtsOnder.Images := fImagesScherm.ilAlgemeen32;
   
-  if actLinksOnder<>nil then begin
+  if btnLinksOnder.Action <> nil then begin
     btnLinksOnder.Visible := true;
-    btnLinksOnder.Caption := actLinksOnder.Caption;
   end;
-  if actCentraalOnder<>nil then begin
+  if btnCentraalOnder.Action <> nil then begin
     btnCentraalOnder.Visible := true;
-    btnCentraalOnder.Caption := actCentraalOnder.Caption;
   end;
-  if actRechtsOnder<>nil then begin
+  if btnRechtsOnder.Action <> nil then begin
     btnRechtsOnder.Visible := true;
-    btnRechtsOnder.Caption := actRechtsOnder.Caption;
   end;
 
   if lblGebruiker.Caption <> '' then begin
Index: AAPClient/UI/PalletScherm.pas
===================================================================
diff -u -r23 -r24
--- AAPClient/UI/PalletScherm.pas	(.../PalletScherm.pas)	(revision 23)
+++ AAPClient/UI/PalletScherm.pas	(.../PalletScherm.pas)	(revision 24)
@@ -42,8 +42,7 @@
 
 procedure TfmPalletScherm.FormShow(Sender: TObject);
 begin
-  actCentraalOnder := actHome;
-  actRechtsOnder := actVolgende;
+  btnLinksOnder.Action := nil;
   btnCentraalOnder.Action := actHome;
   btnRechtsOnder.Action := actVolgende;
   inherited;
Index: AAPClient/Win32/Debug/DrieKnoppenScherm.dcu
===================================================================
diff -u -r21 -r24
Binary files differ
Index: AAPClient/UI/LoginScherm.dfm
===================================================================
diff -u -r15 -r24
--- AAPClient/UI/LoginScherm.dfm	(.../LoginScherm.dfm)	(revision 15)
+++ AAPClient/UI/LoginScherm.dfm	(.../LoginScherm.dfm)	(revision 24)
@@ -39,6 +39,7 @@
     Width = 121
     Height = 27
     TabOrder = 1
+    Text = '0030'
     OnKeyUp = edtPincodeKeyUp
   end
   object edtInitialen: TEdit [7]
@@ -47,6 +48,7 @@
     Width = 121
     Height = 27
     TabOrder = 0
+    Text = 'NBO'
     OnKeyPress = edtInitialenKeyPress
     OnKeyUp = edtInitialenKeyUp
   end
Index: AAPClient/Win32/Debug/ProScan.exe
===================================================================
diff -u -r23 -r24
Binary files differ
Index: AAPClient/UI/HomeScherm.pas
===================================================================
diff -u -r22 -r24
--- AAPClient/UI/HomeScherm.pas	(.../HomeScherm.pas)	(revision 22)
+++ AAPClient/UI/HomeScherm.pas	(.../HomeScherm.pas)	(revision 24)
@@ -34,7 +34,6 @@
 
 procedure TfmHomeScherm.FormShow(Sender: TObject);
 begin
-  actLinksOnder := actAfsluiten;
   btnLinksOnder.Action := actAfsluiten;
   inherited;
 end;
Index: AAPClient/Win32/Debug/LoginScherm.dcu
===================================================================
diff -u -r15 -r24
Binary files differ