[marcoszorrilla]

En el mismo programa me funciona:

Código Delphi [-]
procedure TfrMovBancos.FormActivate(Sender: TObject);
begin
  if DmConex.IBDtsUsuariosUsuario.Value = 'ADMINISTRADOR' then
  Navega.VisibleButtons:=[nbFirst, nbPrior, nbNext, nBlast, nbDelete, nbInsert];

  DmBanc.IBDtsBanc.Close;
  DmBanc.IBDtsBanc.SelectSql.Text:='';

  case estado of
  1:begin
  DmBanc.IBDtsBanc.SelectSQL.Text:='Select * From Banco';
  frMovBancos.Caption:='Consulta de Movimientos Bancarios - Todos';
    end;

  2:begin
  DmBanc.IBDtsBanc.SelectSQL.Text:='Select * From Banco Where Comentario is null';
  frMovBancos.Caption:='Consulta de Movimientos Bancarios - No punteados';
    end;

  3:begin
  DmBanc.IBDtsBanc.SelectSQL.Add('Select * From Banco ');
  DmBanc.IBDtsBanc.SelectSQL.Add('Where foperacion Between :Ini And :Fin');
  DmBanc.IBDtsBanc.ParamByName('Ini').AsDate:=dIni;
  DmBanc.IBDtsBanc.ParamByName('Fin').AsDate:=dFin;

    frMovBancos.Caption:='Consulta de Movimientos Bancarios - entre '+DateToStr(dIni)+' y '+DateToStr(dFin);
    end;

  4:begin
  DmBanc.IBDtsBanc.SelectSQL.Text:='Select * From Banco Where Concepto like ' +'''%'+cFiltro+'%''';
  frMovBancos.Caption:='Consulta de Movimientos Bancarios - por Concepto:'+cFiltro;
    end;

  5:begin
  DmBanc.IBDtsBanc.SelectSQL.Text:='Select * From Banco Where Comentario like ' +'''%'+cFiltro+'%''';
  frMovBancos.Caption:='Consulta de Movimientos Bancarios - por Comentario:'+cFiltro
    end;


  6:begin
  DmBanc.IBDtsBanc.SelectSQL.Add('Select * From Banco Where Cargos Between ' +IntToStr(CantIni)+' And '+ IntToStr(CantFin));
  DmBanc.IBDtsBanc.SelectSQL.Add(' Or Abonos Between ' +IntToStr(CantIni)+' And '+ IntToStr(CantFin));
  frMovBancos.Caption:='Consulta de Movimientos Bancarios (cargos o abonos) - Entre '+ IntToStr(CantIni)+' y '+ IntToStr(CantFin)+' €';
    end;
  end;
 
  DmBanc.IBDtsBanc.Open;
  DmBanc.IbDtsBanc.Last;
end;

Un Saludo.