s5.Text:=floattostr((strtofloat(hh.Text)/strtofloat(gs.Text)-strtofloat(s1.Text))*100/strtofloat(s1.Text));