Argument out of range

[maravert]

Hola a todos:

Estoy trabajando con un TSQLDataset y en su Propiedad CommandText tengo el siguiente código

Código SQL [-]
SELECT * FROM VentasMaestro WHERE Fecha BETWEEN :Fecha1 AND :Fecha2

y en su propiedad Params Tengo 2 parámetros

0 Fecha1 de tipo ftDate
1 Fecha2 de tipo ftDate

Cuando los llamo a consulta con el siguiente código

Código SQL [-]
procedure TfrmCorteporPeriodo.FormShow(Sender: TObject);
   VAR
     Fecha1, Fecha2 : TDate;
     Monto : Real;
   Begin
   Monto := 0;

   
  Fecha1 := DateTimePicker1.Date;
  Fecha2 := DateTimePicker2.Date;
   Periodo.DataSet.Close;
 

   TClientDataSet(Periodo.DataSet).Params[0].AsDateTime :=  Fecha1;
  
   TClientDataSet(Periodo.DataSet).Params[1].AsDateTime :=  Fecha2;


  Periodo.DataSet.Open;

El Error aparece al llegar al siguiente código

Código SQL [-]
 TClientDataSet(Periodo.DataSet).Params[1].AsDateTime :=  Fecha2;

Argument out of range

Estoy utilizando MYSQL

Muchas gracias