Fórum delphi xe7 data 2 #603319

Boa noite fiz este codigo testei a primeira vez nao mostrou as informaçoes da data selecionada, no segundo teste percebi que os valores estavam batendo com a data mas nao jogou as informaçoes para minha DBGRID alguem poderia me dar uma ajuda Obrigado.

with sql_ListarLancamentos do
begin
close;
sql.clear;
sql.Add('select * from view_listar_pedidos');
sql.Add('where ped_faturado = "SIM"');
sql.Add('and ped_data between :data_ini and :data_fim');
sql.add('group by ped_cod_venda');
ParamByName('data_ini').Value := data_ini.Date;
ParamByName('data_fim').Value := data_fim.Date;
open;

end;
//sql que gera o relatorio por data
with dm.sql_relatoriovenda do
begin
close;
sql.clear;
sql.Add('select * from view_listar_pedidos');
sql.Add('where ped_faturado = "SIM"');
sql.Add('and ped_data between :data_ini and :data_fim');
ParamByName('data_ini').Value := FormatDateTime('yyyy-mm-dd',data_ini.Date);
ParamByName('data_fim').Value := FormatDateTime('yyyy-mm-dd',data_fim.Date);
open;

end;
end;