Index: AAPClient/UI/LoginScherm.pas
===================================================================
diff -u -r6 -r7
--- AAPClient/UI/LoginScherm.pas	(.../LoginScherm.pas)	(revision 6)
+++ AAPClient/UI/LoginScherm.pas	(.../LoginScherm.pas)	(revision 7)
@@ -19,8 +19,13 @@
     procedure edtInitialenKeyPress(Sender: TObject; var Key: Char);
     procedure btnLinksOnderClick(Sender: TObject);
     procedure btnRechtsOnderClick(Sender: TObject);
+    procedure edtPincodeKeyUp(Sender: TObject; var Key: Word;
+      Shift: TShiftState);
+    procedure edtInitialenKeyUp(Sender: TObject; var Key: Word;
+      Shift: TShiftState);
+    procedure FormShow(Sender: TObject);
   private
-    { Private declarations }
+    procedure SetStatusButtonRechtsOnderaan;
   public
     { Public declarations }
   end;
@@ -80,11 +85,36 @@
   Key := upcase(Key);
 end;
 
+procedure TfmLoginScherm.edtInitialenKeyUp(Sender: TObject; var Key: Word;
+  Shift: TShiftState);
+begin
+  inherited;
+  SetStatusButtonRechtsOnderaan;
+end;
+
+procedure TfmLoginScherm.edtPincodeKeyUp(Sender: TObject; var Key: Word;
+  Shift: TShiftState);
+begin
+  inherited;
+  SetStatusButtonRechtsOnderaan;
+end;
+
 procedure TfmLoginScherm.FormCreate(Sender: TObject);
 begin
   inherited;
   actRechtsOnder := actVolgende;
   actLinksOnder := actAfsluiten;
 end;
 
+procedure TfmLoginScherm.FormShow(Sender: TObject);
+begin
+  inherited;
+  btnRechtsOnder.Enabled := false;
+end;
+
+procedure TfmLoginScherm.SetStatusButtonRechtsOnderaan;
+begin
+  btnRechtsOnder.Enabled := ((edtPincode.Text <> '') and (edtInitialen.Text <> ''));
+end;
+
 end.