Prueba ha hacer algo asi
Código:
vSql := 'select * from juridica where '
+' cve_sit_jur = '+Ed_CveSit.Text+' '
+'and Fecha_Cap between :FechaIni and :FechaFin';
Query.ParamByName('FechaIni).AsDateTime := vFecI;
Query.ParamByName('FechaFin).AsDateTime := vFecF;
Query.Open;
Es decir, hacemos uso de parametros en la consulta SQL
Espero te sirva