búsqueda por rango de fecha

[vroa74]

tengo en un porograma un sistema de buqueda que componen varios campos de texto y solo el rango de las busqueda por fecha da problemas
le pongo el franmento de codigo que me da problemas.

Código Delphi [-]
         if (JvDateTimePicker1.Date <> JvDateTimePicker1.Date) then
         begin
           DecodeDate(JvDateTimePicker1.Date,A,M,D);   // decodifoco la primera fecha
           FIni := IntToStr(A) + '/' + IntToStr(M)+ '/' + IntToStr(D); // reconstruyo la primera fecha
           DecodeDate(JvDateTimePicker2.Date,A,M,D);  //decodifico la sehunda fecha
           FFin := IntToStr(A) + '/' + IntToStr(M)+ '/' + IntToStr(D); reconstuyo la segunda fecha
              if con >= 1 then  // este es un contador que uo para saber si anteponerle el and a la sentencia query y como es la ultima parte del query no requiero incrementarla
              dm.query.SQL.Add('AND');
          dm.soli.SQL.Add('fecha BETWEEN '+QuotedStr(Fini) + ' AND ' + QuotedStr(FFin)+'');
         end;

marca error en la linea 14 en el query.

estoy usando el appserv 2.5.10