Fórum Relátorio ..Erro ao retornar data #345534

procedure TfrmLisRelPraSemanais.spbexiClick(Sender: TObject);
begin
  With DtmIza.qryIza do
     Begin
       Close;
       Sql.Clear;
       Sql.Add(´SELECT * FROM Praticas´);
       Sql.Add(´where (Data >= :d1) and (Data <= :d2)´);
       ParambyName(´d1´).value  := FormatDateTime (´dd/mm/yyyy´ , StrToDate (TxtDtIni.Text));
       ParambyName(´d2´).value  := FormatDateTime (´dd/mm/yyyy´ , StrToDate (TxtDtfin.Text));
       Open;
     End ;
  With TFrmPraticaSemanal.Create(Application) do
     Try
       QuickRep1.Preview;
     Finally
       Free;
  End;
end;