这样为何不行？？？

Question

var temdm:string;
var temsl:Integer;
 begin
 temdm:=dmedit.Text;
 temsl:=strtoint(kcedit.Text);
 if (StrLen(Pchar(dmedit.Text))=0) or (strLen(Pchar(mcedit.Text))=0) or (strlen(Pchar(ggedit.Text))=0)
  or (strLen(Pchar(dwedit.Text))=0) or (strLen(Pchar(sledit.Text))=0)  then
  begin
  application.MessageBox('请输入完整信息!','提示',mb_ok+mb_iconinformation)
  end
  else
   with query1 do
    begin
    SQL.Clear;
    SQL.Add('Insert into Detail_rk(Wldm,Wlmc,Wlgg,Sl,Wlly,Wlbs,Wlzl,Rksj,Gys,Bz)values(:dm,:mc,:gg,:sl,:ly,:bs,:zl,:sj,:gys,:bz)');
    query1.ParamByName('dm').Value:=dmedit.Text;
    query1.ParamByName('mc').Value:=mcedit.Text;
    query1.ParamByName('gg').Value:=ggedit.Text;
    query1.ParamByName('sl').Value:=sledit.Text;
    query1.ParamByName('ly').Value:=lyedit.Text;
    query1.ParamByName('bs').Value:=bsedit.text;
    query1.ParamByName('zl').Value:='原料';
    query1.ParamByName('sj').Value:=rqedit.Text;
    query1.ParamByName('gys').Value:=gysedit.Text;
    query1.ParamByName('bz').Value:=bzedit.Text;
    execSQL;
    Table1.Refresh;
    table1.Last;
     with query2 do
     begin
     SQL.Clear;
     SQL.Add('Update detail_all set Sl=Sl+''+temsl+'' where Wldm='''+temdm+'''');
     execSQL;
     Table3.Refresh;
     END;
    end;
   dmedit.SetFocus;
   dmedit.Text:='';
   mcedit.Text:='';
   ggedit.Text:='';
   dwedit.Text:='';
   sledit.Text:='';
   kcedit.Text:='';
   bzedit.Text:='';end;
以上语会报 “标准表达式中数据类型不匹配"，SQL.Add('Update detail_all set Sl=Sl+''+temsl+'' where Wldm='''+temdm+'''');中Sl是整型字段

Answer 1

SQL.Add('Update detail_all set Sl=Sl+temsl'+'where Wldm='''+temdm+'''');

Answer 2

query1.ParamByName('zl').Value:='''原料''';//其他雷同

Answer 3

'Update detail_all set Sl=Sl+'+ InttoStr(temsl)+' where Wldm='''+temdm+''''

Answer 4

SQL.Add('Update detail_all set Sl=Sl+'+temsl+' where Wldm='''+temdm+'''');