Index: VerpakkingsDefinitie/UI/LogInScherm.pas
===================================================================
diff -u -r547 -r548
--- VerpakkingsDefinitie/UI/LogInScherm.pas	(.../LogInScherm.pas)	(revision 547)
+++ VerpakkingsDefinitie/UI/LogInScherm.pas	(.../LogInScherm.pas)	(revision 548)
@@ -13,9 +13,9 @@
   TFormLogin = class(TFormSubscherm)
     Label1: TLabel;
     Label2: TLabel;
-    edtGebruikersnaam: TEdit;
+    EditGebruikersnaam: TEdit;
     Label3: TLabel;
-    edtWachtwoord: TEdit;
+    EditWachtwoord: TEdit;
     Panel1: TPanel;
 
     procedure Panel1Click(Sender: TObject);
@@ -35,8 +35,8 @@
   fAgent: TAgent;
 begin
   fAgent := TAgent.Create();
-  Response := fAgent.GebruikerAanmelden(edtGebruikersnaam.Text,edtWachtwoord.Text);
-  edtGebruikersnaam.Text := Response.ToString
+  Response := fAgent.GebruikerAanmelden(EditGebruikersnaam.Text,EditWachtwoord.Text);
+  ShowMessage(Response.ToString);
 end;
 
 end.