Problema c/Select substraindo Data FB/D6 Op Variant Invalida

Olá Pessoal


Eu queria fazer uma Conta em um Select
Tentei fazer no Delphi e dá o mesmo erro (ContasDataDATA_VCTO.Value> - Date)

Uso D6+FB+DBX

O select executa e abre em tempo de projeto, mas quando roda dá o erro
Operação Variant Inválida :?

Vejam o select e vejam se há uma luz :?:

SELECT
COD_MOV, DATAMOV, DATA_VCTO, CODCLI,
ID_CONTA, DESCRICAO, VALOR, DATA_PAGTO,
TIPO_LCTO, UNIDADE, COD_CC, TP_DOCTO, NRO_DOCTO,
( cast(DATA_VCTO as date) - (select CURRENT_DATE FROM RDB$Database)) as PRAZO_DIAS
FROM
MOVIMENTO

Agradeço qualquer ajuda :roll: