Index: VerpakkingsDefinitie/LogInScherm.pas
===================================================================
diff -u -r533 -r545
--- VerpakkingsDefinitie/LogInScherm.pas	(.../LogInScherm.pas)	(revision 533)
+++ VerpakkingsDefinitie/LogInScherm.pas	(.../LogInScherm.pas)	(revision 545)
@@ -14,6 +14,7 @@
     Label3: TLabel;
     edtWachtwoord: TEdit;
     Panel1: TPanel;
+    procedure Panel1Click(Sender: TObject);
   private
     { Private declarations }
   public
@@ -25,8 +26,18 @@
 
 implementation
   uses
-  GebruikerService;
+  UserServerService, Agent;
 
 {$R *.dfm}
 
+procedure TfmLogin.Panel1Click(Sender: TObject);
+var
+  Response: PxStatus;
+  fAgent: TAgent;
+begin
+  fAgent := TAgent.Create();
+  Response := fAgent.GebruikerAanmelden(edtGebruikersnaam.Text, edtWachtwoord.Text);
+  edtGebruikersnaam.Text := Response.ToString
+end;
+
 end.