Problema num simples form de mensagem

Delphi

15/07/2005

Ol� amigos, criei um form super simples, apenas com um label para apresentar uma mensagem ao usu�rio em processos demorados. Coloquei-o para criar automaticamente, e quando vou iniciar um processo chamo assim atrav�s uma fun��o:

procedure TfMenu.AbreMensagem(vTit,vLab: string);
begin
   fMensagem.Caption             := vTit;
   fMensagem.LabMensagem.Caption := vLab;
   fMensagem.Update ;
   fMensagem.Show;
end;

E ap�s o processo, encerro-o assim:

procedure TfMenu.FechaMensagem;
begin
   fMensagem.Close ;
end;

O problema ocorre por exemplo, ao iniciar o sistema para iniciar a dll do cupom fiscal, como a mensagem, da� acesso qualquer form e quando saio dele me aparece sempre a tela de login, e o sistema est� funcionando perfeitamente sem a mensagem. O interessante � que o form de login � criado em runtime e destru�do logo ap�s, como mostro abaixo o evento activate do form principal.

 try
            Application.CreateForm(TfLogin, fLogin);
            fLogin.ShowModal;
            if fLogin.BotaoOk.ModalResult <> mrOk then
               begin
                  DM.Conexao.Connected := False;
                  Application.Terminate ;
               end;
         finally;
            fLogin.Release;
         end;
         ECF_Ativar;

Esta � a fun��o ativar ECF:

procedure ECF_Ativar;
begin
   if fMenu.Terminal[1] <> �0� then
      begin
         fMenu.AbreMensagem(�Aguarde�,�Inicializando ECF...�);
         if fMenu.Terminal[1] <> �1� then
            ECF_Retorno(InicializaDLL(fMenu.Terminal[1]));
         fMenu.FechaMensagem ;
      end;
end;

Se retiro da procedure ECF_Ativar as chamadas as fun��es AbreMensagem e FechaMensagem, tudo funciona perfeitamente.

Espero que possam me auxiliar

Um abra�o