Olá Jhonas. Então, verificando melhor o debug, percebi que não passa do frmExportacao.Database := Conexao; pois, quando pressiono F7, ele entra na procedure, e no qryContab2, logo, ele para no MesReferencia, mas o erro ocorre na conexao mesmo, me expressei mal. Sorry ^_^ há, e na verdade, o que você sugeriu seria o ParamByName, mas o que se faz aqui, seria o params como objeto, e nesse caso não há o uso do 'if', pois não é uma propriedade de uma query. Grato pela atenção Jhonas. frmExportacao.Database := Conexao; frmExportacao.MesReferencia := Params.MesReferencia; frmExportacao.AnoReferencia := Params.AnoReferencia; frmExportacao.ShowModal; OBS: quando voce passa um parametro, ele possui um indice 0, 1, 2 ... etc exemplo: Params[0].Name := 'modelo'; Params[1].Name := 'sigla'; outra maneira de fazer a passagem de parametros ParamByName('modelo').Text := fmodelo; ParamByName('sigla').Text := fsigla; Então possivelmente o erro esteja onde faltou colocar um indice em Params List index out of bounds frmExportacao.MesReferencia := Params[0].MesReferencia; abraço