Pd={{8.84,122},{9.78,24},{10.71,92},{10.19,40},{10.02,26}}

Show[ListPlot[Pd,PlotStyle->PointSize[0.03]],Plot[Fct[x],{x,8.5,10.5}],PlotRange->All]

Fct[x_]=Fit[Pd,{1,x,(x^2)},x]

FindMinimum[Fct[x],{x,9}]