Deberia ser de esta forma
Atencion con " =: "
Código Delphi
[-]
CFechaGrafico.Close;
CFechaGrafico.SQL.Clear;
CFechaGrafico.SQL.Text:= 'SELECT ActividadDiaria.[TipoActividad], ActividadDiaria.[Fecha], Sum(ActividadDiaria.[Cantidad])AS SumaDeCantidad FROM ActividadDiaria'+
'where (((ActividadDiaria.[Fecha]) = :graf1datainicial))GROUP BY ActividadDiaria.[TipoActividad] ORDER BY ActividadDiaria.TipoActividad';
CFechagrafico.Parameters.ParamByName('graf1datainicial').Value := FormatDateTime('dd/M/yyyy',FechaGrafico.Date);
CFechaGrafico.Open;
Saludos