Error en consulta SQL

[Loviedo]

Tengo la siguiente consulta:

Código SQL [-]
select titulo, concepto, sum(debe),sum(haber)
from
    (select titulo,concepto,debe, haber
    from ldiario
    union all
    select titulo,concepto,debe,haber
    from ldiarioh)
group by titulo,concepto

Uso firebird y delphi7. Las dos tablas son iguales, se ejecuta perfectamente con IBExpert, pero con delphi da error en la sintaxis '(Select...'

Gracias.