EAccessViolation

[Ester]

Hola a todo el mundo,

llevo ya algunos dias peleandome con una aplicación que me da el error de EAccesViolation al salir. Estuve mirando distintos foros y siguiendo los consejos que leí pero no consigo solucionar el problema. Parece ser que el error me lo da en el End final, pero no se que está intentando hacer.

Os explico un poco como tengo montada la aplicación, a ver si alguien puede decirme que hago mal:

- La aplicación tiene como formulario principal un login y a partir de este carga un formulario de menus con el menu personalizado para cada usuario.
- También contiene un datamodule que cargo al iniciar la aplicación.
- No cierro manualmente el datamodule, deduzco que lo hará él al finalizar la aplicación.
- En el evento onclose de todos los formularios, incluido el frlogin incluyo la instruccion "action:=cafree".

El código para iniciar el programa es el siguiente:

Begin
Application.Initialize;
Application.Title := 'Top Cable';
Application.CreateForm(Tfrdadesglobals, frdadesglobals);
Application.CreateForm(Tfrlogin, frlogin);
Application.Run;
End;

A ver si alguien me puede decir algo, por que este error me está poniendo nerviosa

Ester