Index: VerpakkingsDefinitie/UI/LogInScherm.pas
===================================================================
diff -u -r548 -r550
--- VerpakkingsDefinitie/UI/LogInScherm.pas	(.../LogInScherm.pas)	(revision 548)
+++ VerpakkingsDefinitie/UI/LogInScherm.pas	(.../LogInScherm.pas)	(revision 550)
@@ -6,8 +6,7 @@
   Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
   System.Classes, Vcl.Graphics,
   Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls,
-  Subscherm,
-  UserServerService, Agent;
+  Subscherm;
 
 type
   TFormLogin = class(TFormSubscherm)
@@ -27,6 +26,10 @@
 
 implementation
 
+uses
+  Main,
+  UserServerService, Agent;
+
 {$R *.dfm}
 
 procedure TFormLogin.Panel1Click(Sender: TObject);
@@ -35,8 +38,12 @@
   fAgent: TAgent;
 begin
   fAgent := TAgent.Create();
-  Response := fAgent.GebruikerAanmelden(EditGebruikersnaam.Text,EditWachtwoord.Text);
+  //Response := fAgent.GebruikerAanmelden(EditGebruikersnaam.Text,EditWachtwoord.Text);
+  Response := fAgent.GebruikerAanmelden('tve','tve1502');
   ShowMessage(Response.ToString);
+
+  // TODO controleren of login succesvol was en waarden invullen in ApplicationContext
+  //(self.Parent.Parent as TFormMain).NavigeerNaar(Main.FORMZOEKPRODUCTENID);
 end;
 
 end.