Fórum erro aquivo de projeto #211222

MEU AQUIVO DE PROJETO POSSUI O SEGUIENTE CODIGO.
...
Application.CreateForm(TfrmqrRelDisciplina, frmqrRelDisciplina);
Application.CreateForm(TfrmLogin, frmLogin);

frmLogin.showmodal;
if frmLogin.login_ok then begin
// conecta com banco de dados
dmPrincipal.dbFAJ.Connected := True;
// roda a aplicacao
Application.Run;
end else begin
Application.Terminate;
end;

[b:2cc72eb8a8][color=red:2cc72eb8a8]Título editado pelo Moderador (AZ) - Removido: ´cansera!!!´[/color:2cc72eb8a8][/b:2cc72eb8a8]

MAS QUANDO O LOGIN E FALSO DA UM ERRO :
PROJECT RAISED EXCEPTION CLASS EACCESSVIOLATION
READ OF ADDRESS 022132B8

ALGEM PODE ME AJUDAR, JA TENTEI DE TUDO... MAS AINDA NAO ACHEI A O PROBLEMA.. GRATO!