[原创]高手请进！！！！

sum1,sum2,sum3,sum4,s2,s3,s4,s5,s6,s7,s10:real;
  s8,s9:integer;
  a,b,c,d,e,f,s:string;
 begin
ADOTable2.active:=true;

 if ComboBox2.Text='一月' then //选择查询条件
 begin
   adoquery1.close;
   ADOQuery1.SQL.Clear;
  adoquery1.SQL.Add('select sum(业绩量) as nSum from 工作表 where 月份=''一月''' );
  adoquery1.SQL.Add('or 月份=''十一月''' );
  adoquery1.SQL.Add('or 月份=''十二月''' );
  adoquery1.open;
  sum1:=adoquery1.fieldbyname('nSum').value;

   adoquery5.close;
    ADOQuery5.SQL.Clear;
    adoquery5.SQL.Add('select sum(业绩量) as nSum from 工作表 where 月份=''一月''' );
  adoquery5.SQL.Add('or 月份=''十一月''' );
  adoquery5.SQL.Add('or 月份=''十二月''' );
  adoquery5.open;
  sum2:=adoquery5.fieldbyname('nSum').value;

    adoquery6.close;
    ADOQuery6.SQL.Clear;
    adoquery6.SQL.Add('select sum(业绩量) as nSum from 工作表 where 月份=''一月''' );
  adoquery6.SQL.Add('or 月份=''十一月''' );
  adoquery6.SQL.Add('or 月份=''十二月''' );
  adoquery6.open;
  sum3:=adoquery6.fieldbyname('nSum').value;
    adoquery7.close;
    ADOQuery7.SQL.Clear;
  adoquery7.SQL.Add('select sum(业绩量) as nSum from 工作表 where 月份=''一月''' );
  adoquery7.SQL.Add('or 月份=''十一月''' );
  adoquery7.SQL.Add('or 月份=''十二月''' );
  adoquery7.open;
  sum4:=adoquery7.fieldbyname('nSum').value;
    s2:=sum1/3;//月平均业绩
    adoquery2.close;
    ADOQuery2.SQL.Clear;
    adoquery2.SQL.Add('select 人数,提成系数 from 数量 where 月份=''一月''' );
    adoquery2.open;
    s8:=adoquery2.fieldbyname('人数').value;
      try
    s10:=ADOQuery2.fieldbyname('提成系数').value;
    except
    s10:=0.00;
    end;
    s3:=s2/s8;
     adoquery3.close;
    ADOQuery3.SQL.Clear;
    adoquery3.SQL.Add('select 总人数 from 一通1 where 月份=''一月''' );
     adoquery3.open;

    s9:=adoquery3.fieldbyname('总人数').value;
    s4:=(sum1+sum2+sum3+sum4)/(3*s9);


    s5:=s4*s10;
    s6:=s2*1.05;
    s7:=s6*s5;
    str(s2:8:2,b);
    str(s3:8:2,c);
    str(s4:8:2,d);
    str(s5:8:2,e);
    str(s6:8:2,f);
    str(s7:8:2,s);
    str(sum1:8:2,a);
    Memo1.Text:='数目:'+a;
    Memo1.Text:='数目:'+b;
    Memo1.Text:='数目:'+c;
    Memo1.Text:='数目:'+d;
    Memo1.Text:='数目:'+e;
    Memo1.Text:='数目:'+f;
    Memo1.Text:='数目:'+s;
    ADOTable2.append;
    SaveToTable;
运行后出现这样的错误：
，数目：，is not a valid floating point value 
为什么呢