Index: AAPClient/UI/LoginScherm.pas
===================================================================
diff -u -r14 -r15
--- AAPClient/UI/LoginScherm.pas	(.../LoginScherm.pas)	(revision 14)
+++ AAPClient/UI/LoginScherm.pas	(.../LoginScherm.pas)	(revision 15)
@@ -9,7 +9,6 @@
 
 type
   TfmLoginScherm = class(TfmDrieKnoppenScherm)
-    actAfsluiten: TAction;
     lblWelkom: TLabel;
     lblGeefPincodeIn: TLabel;
     edtPincode: TEdit;
@@ -21,7 +20,6 @@
     procedure edtInitialenKeyUp(Sender: TObject; var Key: Word;
       Shift: TShiftState);
     procedure FormShow(Sender: TObject);
-    procedure FormCreate(Sender: TObject);
     procedure actAfsluitenExecute(Sender: TObject);
     procedure actVolgendeExecute(Sender: TObject);
   private
@@ -120,21 +118,16 @@
   SetStatusButtonRechtsOnderaan;
 end;
 
-procedure TfmLoginScherm.FormCreate(Sender: TObject);
+procedure TfmLoginScherm.FormShow(Sender: TObject);
 begin
-  inherited;
-
   actRechtsOnder := actVolgende;
   actLinksOnder := actAfsluiten;
   btnRechtsOnder.Action := actRechtsOnder;
   btnLinksOnder.Action := actAfsluiten;
-end;
-
-procedure TfmLoginScherm.FormShow(Sender: TObject);
-begin
-  inherited;
+  btnLinksOnder.Enabled := true;
   btnRechtsOnder.Enabled := false;
   SetStatusButtonRechtsOnderaan;
+  inherited;
 end;
 
 function TfmLoginScherm.GeefInitialen: string;