...
var
Cantidad: Integer;
begin
with TuQuery do
begin
Close;
SQL.Clear;
SQL.Add('SELECT COUNT(*) AS CANTIDAD FROM TABLA')
SQL.Add('WHERE YEAR(FECHA) = :ANIO_FECHA');
SQL.Add('AND MONTH(FECHA) = :MES_FECHA');
Open;
Cantidad := FieldByName('CANTIDAD').AsInteger;
end;
...