Index: VerpakkingsDefinitie/UI/LogInScherm.pas
===================================================================
diff -u -r552 -r555
--- VerpakkingsDefinitie/UI/LogInScherm.pas	(.../LogInScherm.pas)	(revision 552)
+++ VerpakkingsDefinitie/UI/LogInScherm.pas	(.../LogInScherm.pas)	(revision 555)
@@ -28,7 +28,6 @@
     procedure Login();
   public
     Constructor Create(AOwner: TComponent; Navigator: TFormMain; ApplicationContext: TApplicationContext; Agent: TAgent);
-      overload;
   end;
 
 implementation
@@ -96,19 +95,19 @@
 var
   ErrorMessage: string;
 begin
-  FAgent.GebruikerAanmelden(EditGebruikersnaam.Text, EditWachtwoord.Text, ApplicationContextObj.UserServerServiceContext);
+  FAgent.GebruikerAanmelden(EditGebruikersnaam.Text, EditWachtwoord.Text, ApplicationContext.UserServerServiceContext);
 
-  if ApplicationContextObj.UserServerServiceContext.IsOK then
+  if ApplicationContext.UserServerServiceContext.IsOK then
   begin
     (self.Navigator as TFormMain).NavigeerNaar(Main.NAVZOEKPRODUCTEN);
   end
   else
   begin
     // Login gefaald
-    ErrorMessage := ApplicationContextObj.UserServerServiceContext.ErrorMessage;
-    if ApplicationContextObj.UserServerServiceContext.InternalErrorMessage <> '' then
+    ErrorMessage := ApplicationContext.UserServerServiceContext.ErrorMessage;
+    if ApplicationContext.UserServerServiceContext.InternalErrorMessage <> '' then
     begin
-      ErrorMessage := ErrorMessage + sLineBreak + ApplicationContextObj.UserServerServiceContext.InternalErrorMessage;
+      ErrorMessage := ErrorMessage + sLineBreak + ApplicationContext.UserServerServiceContext.InternalErrorMessage;
     end;
 
     if MessageDlg(ErrorMessage, TMsgDlgType.mtInformation, [mbRetry, mbCancel], 0, mbCancel) = mrRetry then