myfig1c[Kd_:1,p_:2,τ_:10,S_:1]:=Module[{values2},values2={k1->1,k2->1,ET->1,Km->1};f1crule=NDSolve[{y'[t]==k1 S Kd^p/(Kd^p+y[t-τ]^p)-k2 ET y[t]/(y[t]+Km),y[t/;t<-50]==2}/.values2,y,{t,-60,100}]//Flatten;yfig1c=y[t]/.f1crule;Plot[yfig1c,{t,-60,100},PlotRange->All]]

??myfig1c

myfig1c[]

Manipulate[myfig1c[1,2,10,s],{s,0,3}]