un Registrio que empiece de 1 cada mes!!

[Yun-i]

Ya intente pero resulta que es mas o menos lo que ya habia intentado
con la funcion DaysInMonth, yo no sabia con exactitud los parametros que recibe, pero al parecer falta algun parametro por que cuando lo compilo marca este error:

error not enough actual parameters

Código Delphi [-]
DecodeDate(DateTimePicker1.Date, Ano, Mes, Dia);
FechaDesde:=ReCodeDate(Ano, Mes, 1);//aqui marca ese error
// y si lo pongo como  comentario y compilo tambien marca error en la linea de abajo
FechaHasta:=ReCodeDate(Ano, Mes, DaysInMonth(DateTimePicker1.Date));//aqui

Como te de digo se me hace que falta algun parametro por ahi pero no se cual

Gracias por tu ayuda rafita