Fórum Pesquisa em campos timestamp no firebir , e no delphi #24676

como eu faço essa proc funcionar corretamete, do jeito que ela esta ai nao me retorna nada ,se eu tirar a clausula where ela retorna o problema esta no between ?   CREATE or ALTER PROCEDURE PRC_CONSULTA_CAIXA_PERIDO(
DataI timestamp ,DataF timestamp ) RETURNS
(
 TIPO_LANCAMENTO VARCHAR (50) ,VL_LANCAMENTO NUMERIC (9,2),NR_MATRICULA INTEGER,USUARIO varchar (50),
 VL_DESPEZA NUMERIC (18,2),VL_RECEITA numeric (18,2),VL_SALDO NUMERIC (18,2),fL_RECEITA smallint
 )
AS
BEGIN  for  SELECT
    B.DS_TIPO_LANCAMENTO,
    A.VL_LANCAMENTO,
    M.NR_MATRICULA,
    D.nm_login ,
    CASE B.Fl_Receita WHEN 1 THEN 0 ELSE A.VL_LANCAMENTO END as VL_DESPEZA,
    CASE B.Fl_Receita WHEN 1 THEN A.VL_LANCAMENTO ELSE 0 END AS VL_RECEITA ,
    CASE B.Fl_Receita WHEN 1 THEN A.VL_LANCAMENTO ELSE 0 END -CASE B.Fl_Receita WHEN 1 THEN 0 ELSE A.VL_LANCAMENTO END AS VL_SALDO,
    B.fl_receita
   
    FROM TB_MOVIMENTACAO_CAIXA  A
        INNER JOIN TB_TIPO_LANCAMENTO  B  ON (A.ID_TIPO_LANCAMENTO=B.ID_TIPO_LANCAMENTO)
        INNER JOIN TB_ABERTURA_CAIXA  C   ON (A.ID_ABERTURA_CAIXA=C.ID_ABERTURA_CAIXA )
        INNER JOIN TB_USUARIO  D ON (A.id_usuario = D.ID_USUARIO)
        inner join tb_motoqueiro m on (m.id_motoqueiro =a.id_motoqueiro)
    WHERE (a.dt_lancamento between :datai and :dataf)
    order by A.id_movimentacao_caixa desc
    INTO
     :TIPO_LANCAMENTO ,:VL_LANCAMENTO ,:NR_MATRICULA ,:USUARIO , :VL_DESPEZA ,:VL_RECEITA ,:VL_SALDO ,:fl_receita
     DO
     begin
     suspend ;
     end
END       outra coisa e la no delphi como eu vou fazer a pesquisa
  with ds.DataSet do
  begin
    close;
    tclientdataset(ds.DataSet).Params[0].AsDate := dtpI.Date;
    tclientdataset(ds.DataSet).Params[1].AsDate := dtpF.Date + 1;
    // tclientdataset(ds.DataSet).Params[0].AsDate:= StrToDate('11/03/2010') ;
    // tclientdataset(ds.DataSet).Params[1].AsDate := StrToDate('11/03/2010')+1 ;
    Open;
    lblTotal.Caption := IntToStr(ds.DataSet.RecordCount);
    DBGrid1.SetFocus;   end;