Espaço de datas pelo delphi

[sacofritoxd]

Estou tentando passar espaço de datas para um relatório em CR XI.

Mas a sintaxe não esta correta. alguém tem experiencia nisso sabe fazer?

Oque eu fiz está assim

if optVencimento.checked = true then

fml := fml + '{movimento.vencimento}>=' + txtdt1.text + ' and ' + '{movimento.vencimento}<=' + txtdt2.text + ' and '

else if optPagamento.checked = true then

fml := fml + '{movimento.pagamento}>=' + txtdt1.text + ' and ' + '{movimento.pagamento}<=' + txtdt2.text + ' and '

else

fml := fml + '{movimento.datamovimento}>=' + txtdt1.text + ' and ' + '{movimento.datamovimento}<=' + txtdt2.text + ' and ';

Mas esta dando erro na formula.

Segue a rotina inteira da impressão. Preciso disso via delphi 7.

if optSaida.Checked = true then
    fml := '{movimento.tipo} =' + quotedstr('S') + ' and '
  else if optentrada.checked = true then
    begin
      fml := '{movimento.tipo} =' + quotedstr('E') + ' and ';
    end;
  if VerificaData(txtdt1.text) and verificadata(txtdt2.text) then
   begin
     if optVencimento.checked = true then

     else if optPagamento.checked = true then

     else

    end;

  if txtCodFornecedor.text <> '' then
    fml := fml + '{movimento.id_fornecedor} =' + txtcodfornecedor.text + ' and ';

  if cmbFormaPagto.text <> '' then
    fml := fml + '{movimento.tipopagto} =' + cmbFormaPagto.text + ' and ';

  if txtCodUsuario.text <> '' then
    fml := fml + '{movimento.id_usuario}=' + txtCodUsuario.text;

  if Rightstr(fml, 5) = ' and ' then
    fml := LeftStr(fml, length(fml) - 5);

  if optSaida.Checked = true then
    begin
      crpe1.ReportName := ExtractFilePath(ParamStr(0)) + '\Financeiro2.rpt';
      crpe1.ParamFields.ByName('tipo', '').CurrentValue := 'Contas a pagar';
    end
  else
      crpe1.ReportName := ExtractFilePath(ParamStr(0)) + '\Financeiro.rpt';
      if optentrada.checked = true then
        crpe1.ParamFields.ByName('tipo', '').CurrentValue := 'Contas a receber';

  crpe1.ParamFields.ByName('espacodatas', '').CurrentValue := txtdt1.text + ' até ' + txtdt2.text;
  Crpe1.Selection.Formula.text := fml;
  crpe1.Execute;

[Jhonas]

fml := '{movimento.tipo} =' + quotedstr('S') + ' and ' optentrada.checked = true then

não use else if porque voce mata a condição

abraço

[sacofritoxd]

não entendi amigo. Essa parte já esta funcionando. Eu usei o else if pois tenho 3 radio buttons. E apenas 2 deles geram filtros. Tipo SAIDA, ENTRADA ou TODOS. então apenas 2 deles precisam disso.

Oque preciso é a formula para filtras espaço de datas, como se fosse um between.