with query do begin
....
sql.Add('select Fecha from tabla');
sql.Add('where Extract(year from Fecha)=:fecha1');
sql.Add('select Fecha from tabla');
sql.Add('where Extract(month from Fecha)=:fecha1');
....
ParamByName('fecha1').AsInteger:=MonthOf(vfech.Date);
ParamByName('fecha1').AsInteger:=YearOf(vfech.Date);
....