Problema na Busca de Datas

eis ai o codigo da busca

 DTModulo.QryRTLPg.Close;

 DTModulo.QryRTLPg.SQL.Clear;

 DTModulo.QryRTLPg.SQL.Add('SELECT TblPacientes.Nome, TblPacientes.Codigo, TblConvenio.Codigo, TblConvenio.Nome, TbPagamentos.* ');

 DTModulo.QryRTLPg.SQL.Add('FROM TblPacientes, TblConvenio INNER JOIN TbPagamentos ');

 DTModulo.QryRTLPg.SQL.Add('ON TblPacientes.Codigo = TbPagamentos.Id_paciente');

 DTModulo.QryRTLPg.SQL.Add('AND TblConvenio.Codigo = TbPagamentos.Id_convenio');

 DTModulo.QryRTLPg.SQL.Add('WHERE 1 = 1');

 if idPaciente.Text <> '' then

 DTModulo.QryRTLPg.SQL.Add('AND TbPagamentos.Id_paciente = "' + idPaciente.text +'"');

 if idConvenio.Text <> '' then

 DTModulo.QryRTLPg.SQL.Add('AND TbPagamentos.Id_convenio = "' + idConvenio.text +'"');

 if idServico.Text <> '' then

 DTModulo.QryRTLPg.SQL.Add('AND TbPagamentos.Id_servico = "' + idServico.text +'"');

 if idPagamento.Text <> '' then

 DTModulo.QryRTLPg.SQL.Add('AND TbPagamentos.Id_pagamento = "' + idPagamento.text +'"');

if dtInicio.Text <> '' then

 DTModulo.QryRTLPg.SQL.Add('AND TbPagamentos.Dt_pg BETWEEN "' + dtInicio.text + '" AND "' + dtFinal.Text +'"');

 

DTModulo.QryRTLPg.Open;

o problema realmente eh esta parte q esta em negrito, pq o resto funciona corretamente, mas na hora q faco uma pesquisa entre dadas o lance n funciona

o banco esta em DATE

ja tentei colocar MASKEDIT mas nem assim funciona, hora da erro ora volta vazio e o banco ta cheio

q faco?

valeu