Fórum Problema num simples form de mensagem #288289

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

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

 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;

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;