Fórum Tela de login não desaparce #322458

Olá amigos!!!

Estou com um problema chato. Fiz algumas pesquisas, mas infelizmente não encontrei a solução. Quando executo a aplicação, aparece a tela de login. Após a validação, é exibida a tela principal. Pois bem, a tela de login não finaliza em hipótese alguma (fica por trás da tela principal).

Abaixo segue o código utilizado, caso tenha algo errado, por favor, mostrem-me se possível.

No View Source

Application.Initialize;
//Application.CreateForm(TfrmLogin, frmLogin);
Application.CreateForm(TfrmPrincipal, frmPrincipal);
Application.CreateForm(TdmConexao, dmConexao);
Application.CreateForm(TdmUsuarios, dmUsuarios);

try
Application.CreateForm(TfrmLogin, frmLogin);
frmLogin.ShowModal;
if frmLogin.ModalResult <> mrOk then
begin
ShowMessage(´Login/senha incorretos.´);
Halt;
end;
finally
FreeAndNil(frmLogin);
end;

Application.Run;


No botão logar....

procedure TfrmLogin.btnLogarClick(Sender: TObject);
begin
if edtLogin.Text = ´´ then
begin
edtLogin.SetFocus;
Application.MessageBox(´O campo ´LOGIN´ deve ser preenchido.´,
´ Erro´, MB_OK + MB_ICONERROR);
exit;
end;

if edtSenha.Text = ´´ then
begin
edtSenha.SetFocus;
Application.MessageBox(´O campo ´SENHA´ deve ser preenchido.´,
´ Erro´, MB_OK + MB_ICONERROR);
exit;
end;

if validaUsuario(edtLogin.Text, edtSenha.Text) = true then
begin
ModalResult := mrOk;
frmPrincipal.ShowModal
end
else
ModalResult := mrCancel;
end;

Agradeço desde já pela velha atenção de sempre.

Um abraço,

Rogério