Index: AAPClient/UI/LoginScherm.pas
===================================================================
diff -u -r9 -r10
--- AAPClient/UI/LoginScherm.pas	(.../LoginScherm.pas)	(revision 9)
+++ AAPClient/UI/LoginScherm.pas	(.../LoginScherm.pas)	(revision 10)
@@ -27,7 +27,8 @@
   private
     procedure SetStatusButtonRechtsOnderaan;
   public
-    { Public declarations }
+    function GeefInitialen: string;
+    function GeefLoginCode: string;
   end;
 
 var
@@ -62,7 +63,7 @@
     Request.Free;
   end;
 
-  Application.Terminate;
+  ShowMessage('oink');
 end;
 
 procedure TfmLoginScherm.btnRechtsOnderClick(Sender: TObject);
@@ -96,6 +97,7 @@
   finally
     Request.Free;
   end;
+
 end;
 
 procedure TfmLoginScherm.edtInitialenKeyPress(Sender: TObject; var Key: Char);
@@ -131,6 +133,16 @@
   btnRechtsOnder.Enabled := false;
 end;
 
+function TfmLoginScherm.GeefInitialen: string;
+begin
+  result := edtInitialen.Text;
+end;
+
+function TfmLoginScherm.GeefLoginCode: string;
+begin
+  result := edtPinCode.Text;
+end;
+
 procedure TfmLoginScherm.SetStatusButtonRechtsOnderaan;
 begin
   btnRechtsOnder.Enabled := ((edtPincode.Text <> '') and (edtInitialen.Text <> ''));