Ajuda Delphi 10 seatle + firebird 2.5 filtro entre datas com componente tdatetimerpicker

[Ajuda Delphi 10 seatle + firebird 2.5 filtro entre datas com componente tdatetimerpicker]

Bom dia pessoal preciso de ajuda tenho no dbgrid os dados que preciso fitrar da tabela clientes campo data obs uso componentes do firedac para conecxao dataset query etc

segue a parte que parei no codico :

 

 

procedure TFormFiltroClientes.Filtrar;
begin
fdQryFiltro.Close;
 fdQryFiltro.SQL.Clear;
 fdQryFiltro.sql.Add('Select * from clientes join  grupo on grupo.id_grupo = clientes.id_grupo  join  subgrupo on subgrupo.id_subgrupo = clientes.id_subgrupo join  fpagamento on fpagamento.id_fpagamento = clientes.id_fpagamento join  conta on conta.id_conta = clientes.id_conta');
 fdQryFiltro.SQL.Add(' WHERE 1=1 ');


If edtData2.Date < edtData1.Date Then
begin    ShowMessage('Intervalo de datas inválido, a data inicial é maior que a data final!');

end;

[Ajuda Delphi 10 seatle + firebird 2.5 filtro entre datas com componente tdatetimerpicker]

Bom dia pessoal preciso de ajuda tenho no dbgrid os dados que preciso fitrar da tabela clientes campo data obs uso componentes do firedac para conecxao dataset query etc

segue a parte que parei no codico :

 

 

procedure TFormFiltroClientes.Filtrar;
begin
fdQryFiltro.Close;
 fdQryFiltro.SQL.Clear;
 fdQryFiltro.sql.Add('Select * from clientes join  grupo on grupo.id_grupo = clientes.id_grupo  join  subgrupo on subgrupo.id_subgrupo = clientes.id_subgrupo join  fpagamento on fpagamento.id_fpagamento = clientes.id_fpagamento join  conta on conta.id_conta = clientes.id_conta');
 fdQryFiltro.SQL.Add(' WHERE 1=1 ');


If edtData2.Date < edtData1.Date Then
begin    ShowMessage('Intervalo de datas inválido, a data inicial é maior que a data final!');

end;





//edtData 1 e edtData2 sao os componentes tdatetimerpicker