[Eduard23]

Buenas amigos necesito de su valiosa ayuda tengo un query para obtener de una tabla en mysql la suma de sus valores el problema esta en que no toma los parametros que le envio.
este es el query

Código Delphi [-]
 Var  
  Primer,Ultimo,Fechah:  TdateTime;
  DD,MM,YY : Word;
Begin
 Fechah:= Now();
 DecodeDate(Fechah,YY,MM,DD);
 Primer:=EncodeDate(YY,MM,1);
 Ultimo:= EndOfAMonth(YearOf(Fechah), MonthOf(Fechah));
 QryBCompro.SQL.Clear;
 QryBCompro.Sql.Add('Select Codigo,Nombre,Nivel,');
 QryBCompro.Sql.Add('Sum(If(MyRenCon.Fecha_Asi< :Primer,MyRenCon.Debe-MyRenCon.Haber,0)) as Saldo_Ant,');
 QryBCompro.Sql.Add('Sum(If(MyRenCon.Fecha_Asi>=:Primer and MyRenCon.Fecha_Asi<= :Ultimo,MyRenCon.Debe,0)) as Debe,');
 QryBCompro.Sql.Add('Sum(If(MyRenCon.Fecha_Asi>=:Primer and MyRenCon.Fecha_Asi<= :Ultimo,MyRenCon.Haber,0)) as Haber,');
                                Data4.Data.QryBCompro.Sql.Add('Sum(If(MyRenCon.Fecha_Asi< :Primer,MyRenCon.Debe- 
                                MyRenCon.Haber,0))+Sum(If(MyRenCon.Fecha_Asi>= :Primer');
 QryBCompro.Sql.Add(' and MyRenCon.Fecha_Asi<=  :Ultimo,MyRenCon.Debe,0))-Sum(If(MyRenCon.Fecha_Asi>= :Primer and 
                                MyRenCon.Fecha_asi< :Ultimo,MyRenCon.Haber,0)) as Saldo ');
 QryBCompro.Sql.Add('From MyCtaCon Left Join MyRenCon on MyCtaCon.Codigo=MyRenCon.Codmov Group by MyCtaCon.Codigo Order By 
                               MyCtaCon.Codigo');
 QryBCompro.Parameters.ParamByName('Primer').Value := Primer;
 QryBCompro.Parameters.ParamByName('Ultimo').Value := Ultimo;

solo la columna saldo anterior trae valores correctos las columnas debe,haber,saldo vienen en 0
si sustituyo los parametros primer y ultimo en el query por por ejemplo primer:='2023-05-01' y ultimo '2023-05-31' la consulta sale perfecta
les agradeceria su valiosa ayuda ya llevo dias en esto y no se que hacer.
Saludos