Index: AAPClient/Win32/Debug/LoginScherm.dcu
===================================================================
diff -u -r6 -r7
Binary files differ
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.
Index: AAPClient/Win32/Debug/ProScan.exe
===================================================================
diff -u -r6 -r7
Binary files differ
Index: AAPClient/UI/LoginScherm.dfm
===================================================================
diff -u -r4 -r7
--- AAPClient/UI/LoginScherm.dfm	(.../LoginScherm.dfm)	(revision 4)
+++ AAPClient/UI/LoginScherm.dfm	(.../LoginScherm.dfm)	(revision 7)
@@ -31,6 +31,7 @@
     TabOrder = 3
   end
   inherited btnRechtsOnder: TButton
+    Default = True
     TabOrder = 4
     OnClick = btnRechtsOnderClick
   end
@@ -40,6 +41,7 @@
     Width = 121
     Height = 27
     TabOrder = 1
+    OnKeyUp = edtPincodeKeyUp
   end
   object edtInitialen: TEdit [8]
     Left = 103
@@ -48,6 +50,7 @@
     Height = 27
     TabOrder = 0
     OnKeyPress = edtInitialenKeyPress
+    OnKeyUp = edtInitialenKeyUp
   end
   inherited alKnoppenOnder: TActionList
     inherited actLinksOnder: TAction
Index: AAPClient/Win32/Debug/ProScanMain.dcu
===================================================================
diff -u -r4 -r7
Binary files differ