EAcessViolation .... read of adress 00000004

[Jesús Pena]

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