Filtro De Data

[Kindelis]

eu criei um filtro de datas onde o usuario entra com a data inicial e a data final e clica num botão para consultar no banco de dados os cadastros entre o periodo selecionado, porém quando eu coloco uma diferença muito grande de datas da erro. O código é esse, se tiver algum erro por favor verifique para min

var

aspa : char;

begin

aspa:='''';

With Querycontas1 do begin

Close;

Sql.Clear;

Sql.Add('Select *');

Sql.Add('from ''c:\Angratel\contasaprazo.db''');

Sql.Add('Where Data_Primeira>='+aspa+DateToStr(datainicial1.Date)+aspa+' and ');

Sql.Add('Data_Primeira<='+aspa+DateToStr(datafinal1.Date)+aspa+' or');

Sql.Add('Data_Segunda>='+aspa+DateToStr(datainicial1.Date)+aspa+' and');

Sql.Add('Data_Segunda<='+aspa+DateToStr(datafinal1.Date)+aspa+' or');

Sql.Add('Data_Terçeira>='+aspa+DateToStr(datainicial1.Date)+aspa+' and');

Sql.Add('Data_Terçeira<='+aspa+DateToStr(datafinal1.Date)+aspa+' or');

Sql.Add('Data_Quarta>='+aspa+DateToStr(datainicial1.Date)+aspa+' and ');

Sql.Add('Data_Quarta<='+aspa+DateToStr(datafinal1.Date)+aspa);

Open;

end;

end;

[Progr'amador]

Olá Kindelis,

qual é o erro? posta ae!

abs.

[Kindelis]

Olá Kindelis,

qual é o erro? posta ae!

abs.

aparece essa mensagen :

type mismatch in expression