Hola lking, puedes probar con Extract.
Código Delphi
[-]
SQL.Text := 'Select Fecha,grupo,des_cu,debe,haber '+
'from costosygastos.db '+
'where Extract(month from fecha) = '+MonthOf(DateTimePicker.Date)+
' and Extract(year from fecha) = '+YearOf(DateTimePicker.Date);
Saluditos