diff --git a/Source/ApplicationBase/Usuarios/Controller/uUsuariosController.pas b/Source/ApplicationBase/Usuarios/Controller/uUsuariosController.pas
index 6f4e9b02..f0ccde38 100644
--- a/Source/ApplicationBase/Usuarios/Controller/uUsuariosController.pas
+++ b/Source/ApplicationBase/Usuarios/Controller/uUsuariosController.pas
@@ -100,7 +100,6 @@ type
 
     procedure AsignarDataModule;
     procedure InicializarUserControl;
-    procedure ComprobarUsuarioInicial;
     function GetCurrentUser: IBizUsuario;
 
     function AnadirUsuario(AUser : IBizUsuario): Boolean;
@@ -334,19 +333,18 @@ function TUsuariosController.ComprobarUsuario(const User,
 begin
 	Result := FUserControl.VerificaLogin(User, Password);
 	if not Result then 
- 	begin 
-		ComprobarUsuarioInicial; 
- 	 	Result := ComprobarUsuario(User, Password);
+ 	begin
+    if User = 'admin' then
+    begin
+      if not FUserControl.ExisteUsuario('admin') then
+      begin
+        FUserControl.AddUser('admin', '1', 'Administrador', 'admin@correo.net', 0, 0 , 30, True);
+ 	 	    Result := ComprobarUsuario(User, Password);
+      end;
+    end;
  	end;
 end;
 
-procedure TUsuariosController.ComprobarUsuarioInicial;
-begin
-  // Para que haya un usuario siempre en la BD
-  if not FUserControl.ExisteUsuario('admin') then
-    FUserControl.AddUser('admin', '1', 'Administrador', 'admin@correo.net', 0, 0 , 30, True);
-end;
-
 constructor TUsuariosController.Create;
 begin
   AsignarDataModule;
diff --git a/Source/ApplicationBase/Usuarios/Data/uUCROConn.pas b/Source/ApplicationBase/Usuarios/Data/uUCROConn.pas
index 46985b4f..ce921b21 100644
Binary files a/Source/ApplicationBase/Usuarios/Data/uUCROConn.pas and b/Source/ApplicationBase/Usuarios/Data/uUCROConn.pas differ