EAcessViolation .... read of adress 00000004
 

Al iniciar mi proyecto me sale una ventana de error de AccessViolation como la anterior al ejecutar el siguiente código del proyecto

Código Delphi [-]
 
...
...
Application.Title := 'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxl';
Application.ProcessMessages;
sleep(1000);
FreeAndNil(SplashScreen);
Application.CreateForm(TdmLogin, dmLogin); // esta linea es la que proboca el error
....
.....

despues de tracear el código he averiguado que el error surge en la siguiente linea de codigo del fichero classes

Código Delphi [-]
constructor TDataModule.Create(AOwner: TComponent);
begin
GlobalNameSpace.BeginWrite;
try
CreateNew(AOwner);
if (ClassType <> TDataModule) and not (csDesigning in ComponentState) then
begin
if not InitInheritedComponent(Self, TDataModule) then // Aquí se produce el error
raise EResNotFound.CreateFmt(SResNotFound, [ClassName]);
if OldCreateOrder then DoCreate;
end;
finally
GlobalNameSpace.EndWrite;
end;
end;

Si alguno sabe a qué es debido le agradecería que me ayudara a solucionarlo.
Temporalmente lo que hago es deshabilitar el control de la excepción para poder probrar la aplicación y aparentemente funciona todo

Por casualidad en la clase TdmLogin se hace referencia a un TDataModule que se crea posteriormente????

No es así
 

Se trata del datamodule donde hago el montaje de la conexión a la base de datos (en GetOnLoginParams llamo al formulario de conexión en el que solicito el usuario y la clave de acceso) y es el único sitio donde se crea.

¿Sobreescribes el constructor del DataModule?... ¿Tienes algo en el OnCreate del datamodule?...

como creas la ventana splashscreen¿? se me hace que va mas por ahi que por el datamodule