Fórum Não entra no messagedlg #373664

procedure TfrmLogin.VerificaUsuarioLogado;
var
  Retorno: Smallint;
  usuario,
  nm_patrimonio: String;
begin
  usuario       := AnsiUpperCase(edtUsuario.text);;//PckUsuarioLogado.CallStringFunction(´PEGA_USUARIO´,[]);
  nm_patrimonio := PckUsuarioLogado.CallStringFunction(´PEGA_NOME_PATRIMONIO´,[]);

  Retorno := PckUsuarioLogado.CallIntegerFunction(´VERIFICA_USUARIO´,[usuario]);//,nm_patrimonio
  if Retorno = 1 then
  begin
    MessageDlg(PckUsuarioLogado.GetParameter(2),mtInformation,[mbOK],0);
    Application.Terminate;
  end
  else
  begin
    try
      PckUsuarioLogado.CallProcedure(´INSERE_DESTRAVA_USUARIO_SESSAO´,[usuario,nm_patrimonio,parString]);
      frmDtmPrincipal.OraAtualizaGD.Commit;
    except
      frmDtmPrincipal.OraAtualizaGD.Rollback;
    end;
  end;
end;