Sql em tempo de execução

Galera primeiro gostaria de agradecer ao pessoal do forúm pois estou apreendendo muito aqui, programando me surgiu uma dúvida estou fazendo uma consulta no banco firebird em tempo de execução para que ele me retorne o valor somado de uma coluna com algumas condições, quando não existe o registro com essas condições ele não executa e dá erro vou colocar o código abaixo.

//Vendas Balcao em Dinheiro

DmFecharCaixa.CdsConsSecundaria.Close;

DmFecharCaixa.CdsConsSecundaria.CommandText := ('Select Sum(total)as total from vendas where Especie = :Pespecie');

DmFecharCaixa.CdsConsSecundaria.Params.ParamByName('Pespecie').AsString := 'Dinheiro';

DmFecharCaixa.CdsConsSecundaria.Open;

EdtDinheiro.Value := DmFecharCaixa.CdsConsSecundaria.FieldByName('total').Value;

Esse código está localizado em onactive de um form para que ao abrir ele já apareça as informações, mas com o erro ele nem abre o form o erro segue logo abaixo.

Project Pcaixa.Exe raised exception class EvariantTypeCastError with message

'Could not convert variant of type(null) into type(Double)'.