Si aún no has solucionado tu problema podrías probar con esto:
a) parambyname('fecha').AsDateTime := Date;
b) parambyname('Fecha').asstring := formatdatetime('mm/dd/yyyy',Date);
c) parambyname('Fecha').asstring := formatdatetime('yyyy/mm/dd',Date);
Es posible que te estés conectando a la base de datos a través de obdc, si es el caso verifica el idioma que está predefinido para la base de datos.
Ok, espero que te sirva.