Hola:
Como te comenté en la sentencia SQL, puedes poner parámetros:
Código Delphi
[-]
query1.SQL.Text:='select ....
where fecha = :tdFecha ....';
Query1.ParamByName('tdFecha').ParamType := ptInput;
Query1.ParamByName('tdFecha').DataType := ftDate;
query1.ParamByName('tdFecha').AsDate := MiFecha;
A ver si asi te funciona, como te comente dejas que Delphi haga la conversión de fecha y te dejas los asteriscos y no sé que tanta cosa mas
Un saludo