Index: VerpakkingsDefinitie/UI/LogInScherm.pas
===================================================================
diff -u -r569 -r570
--- VerpakkingsDefinitie/UI/LogInScherm.pas	(.../LogInScherm.pas)	(revision 569)
+++ VerpakkingsDefinitie/UI/LogInScherm.pas	(.../LogInScherm.pas)	(revision 570)
@@ -37,7 +37,8 @@
 
 {$R *.dfm}
 
-constructor TFormLogin.Create(AOwner: TComponent; Navigator: TFormMain; ApplicationContext: TApplicationContext; UserAgent: TUserAgent);
+constructor TFormLogin.Create(AOwner: TComponent; Navigator: TFormMain; ApplicationContext: TApplicationContext;
+  UserAgent: TUserAgent);
 begin
   inherited Create(AOwner, Navigator, ApplicationContext);
   self.FUserAgent := UserAgent;
@@ -94,7 +95,8 @@
 var
   ErrorMessage: string;
 begin
-  FUserAgent.GebruikerAanmelden(EditGebruikersnaam.Text, EditWachtwoord.Text, self.ApplicationContext.UserContext);
+  // FUserAgent.GebruikerAanmelden(EditGebruikersnaam.Text, EditWachtwoord.Text, self.ApplicationContext.UserContext);
+  FUserAgent.GebruikerAanmelden('tve', 'tve1502', self.ApplicationContext.UserContext);
 
   if ApplicationContext.UserContext.IsOK then
   begin