lo solucione de esta manera (con las adiciones en campos correspondientes), a ver si alguien lo puede Optimizar
Código Delphi
[-]
Select numeroCarnePaciente, Substring(Convert(nvarchar(30), FechaEmision,103),4,10) As Periodo,
Count(Substring(Convert(nvarchar(30), FechaEmision,103),4,10)) As cantidad
from tb_formulario_web f
where year(f.FechaEmision) >= 2010 and CodigoEstado = '02'
and f.CodCLinica in ('9994','9995','9996')
Group by numeroCarnePaciente, Substring(Convert(nvarchar(30), FechaEmision,103),4,10)
Order by numeroCarnePaciente