关于一个有点难度算法的问题

  我现在要帮朋友写个程序。具体的要求是这样。  起始数值(qs.text) (自己来填写)
 各基数  js1,js2,js3,js4....js8 ;(同样是自己来填写);
 
  最终数(通过计算）  (计算方试是  起始数*0.7+ 基数平均值
             
         *0.95的值      
基数平均值:=起始数 比如起始数是100。那就是(95-105)  然后各基数里面取95-105的数。看一共有多少各。如4就 4
           个数相加除4         
      *1。05的值 我有自己的方法。
yx1,yx2,yx3,yx4,yx5,yx6,yx7,yx8,bdMin,bdMax,TotalInt:double;
Procedure TForm1.Toubiaocale(T:String);
begin
  bdMin:=strtoint(T)*0.95;
  bdMax:=strtoint(T)*1.05;  if  (strtoint(js1.text)>=bdmin) and (strtoint(js1.text)<=bdmax) then 
begin
  total:=total+1;
  yx1:=strtoint(js1.text);
  end else 
  yx1:=0;......
我想问下。如果是字符是10.5怎么转换成数值？  为什么我strtofloat,strtodouble 好像都不行？还有想请教一下，有没有更好更快捷的方法来计算。谢谢