Index: VerpakkingsDefinitie/WS/UserAgent.pas
===================================================================
diff -u -r556 -r610
--- VerpakkingsDefinitie/WS/UserAgent.pas	(.../UserAgent.pas)	(revision 556)
+++ VerpakkingsDefinitie/WS/UserAgent.pas	(.../UserAgent.pas)	(revision 610)
@@ -8,7 +8,6 @@
 // Resource strings are stored as resources and linked into the executable or
 // library so that they can be modified without recompiling the program.
 resourcestring
-  USER_SERVER_URL = 'http://cacheaccept2010:57772/csp/dev1/WS.Sys.Toegang.UserServer.cls';
   APPLICATION_NAME = 'vhintra';
   DOMAIN_NAME = '1';
 
@@ -21,20 +20,21 @@
     procedure RegistreerLogout(UserContext: TUserContext);
     procedure RegistreerMislukteLogout(UserContext: TUserContext; pxStatusObj: pxStatus);
   public
-    Constructor Create();
+    Constructor Create(ServerUrl: string);
     procedure GebruikerAanmelden(GebruikersNaam: string; Wachtwoord: string; UserContext: TUserContext);
     procedure GebruikerAfmelden(UserContext: TUserContext);
   end;
 
 implementation
 
-constructor TUserAgent.Create();
+constructor TUserAgent.Create(ServerUrl: string);
 begin
-  FUserServerSoap := UserServerService.GetUserServerSoap(false, USER_SERVER_URL, nil);
+  inherited Create();
+
+  FUserServerSoap := UserServerService.GetUserServerSoap(false, ServerUrl, nil);
 end;
 
-procedure TUserAgent.GebruikerAanmelden(GebruikersNaam: string; Wachtwoord: string;
-  UserContext: TUserContext);
+procedure TUserAgent.GebruikerAanmelden(GebruikersNaam: string; Wachtwoord: string; UserContext: TUserContext);
 var
   LogInData: UserServerService.LogIn;
   LogInResponseObj: UserServerService.LogInResponse;