رسالة خطأ في تنفيذ quey

السلام عليكم

سؤالي هو

لماذا تظهر هذه الرسالة

arguments are of the wrong type,are out of accepteble range, or are in conflict with one

another

عند استخدام هذا الكود في دلفي 2009

with ADOQsave do 
     begin 
   Close; 
      SQL.Clear; 
      SQL.Add('UPDATE  rawateb'); 
      SQL.Add('SET'); 
      SQL.Add('e_no=:t1,emp_name=:t2,branch=:t3,branch_no=:t4,R_account=:t5,iqma=:t6'); 
      SQL.Add('salary=:t7,solfa=:t8,static_mokafa=:t9,add_hour=:t10,hour_value=:t11,mashawer=:t12'); 
      SQL.Add('add_value=:t13,wagabat=:t14,badl=:t15,mokafaa=:t16,other_add=:t17,gyab_day=:t18'); 
      SQL.Add('gyab=:t19,gazaa=:t20,hasmelsolfa=:t21,rsed_solfa=:t22,hasmtamin=:t23,other_sub=:t24,safy=:t25,r_year=:t27,r_month=:t28'); 
      SQL.Add(' WHERE e_no =:w1 and r_year=:w2 and r_month=:w3 '); 
      Prepared; 

      Parameters.ParamByName('t1').Value          := rawateb.Edit24.Text ; 
      Parameters.ParamByName('t2').Value           := rawateb.Edit25.Text ; 
      Parameters.ParamByName('t3').Value           := rawateb.Edit4.Text ; 
      Parameters.ParamByName('t4').Value           := (rawateb.Edit40.Text) ; 
      Parameters.ParamByName('t5').Value           := rawateb.Edit26.Text ; 
      Parameters.ParamByName('t6').Value           := rawateb.Edit29.Text ; 
      Parameters.ParamByName('t7').Value           := StrToInt(rawateb.Edit27.Text) ; 
      Parameters.ParamByName('t8').Value           := StrToInt(rawateb.Edit28.Text); 
      Parameters.ParamByName('t9').Value           := StrToInt(rawateb.Edit30.Text); 
      Parameters.ParamByName('t10').Value          := StrToFloat(rawateb.Edit38.Text); 
      Parameters.ParamByName('t11').Value          :=StrToInt(rawateb.Edit20.Text); 
      Parameters.ParamByName('t12').Value          := StrToInt(rawateb.Edit21.Text); 
      Parameters.ParamByName('t13').Value          := StrToInt(rawateb.Edit22.Text); 
      Parameters.ParamByName('t14').Value          := StrToInt(rawateb.Edit23.Text); 
      Parameters.ParamByName('t15').Value          := StrToInt(rawateb.Edit19.Text); 
      Parameters.ParamByName('t16').Value          := StrToInt(rawateb.Edit31.Text); 
      Parameters.ParamByName('t17').Value          := StrToInt(rawateb.Edit32.Text); 
      Parameters.ParamByName('t18').Value          := StrToFloat(rawateb.Edit13.Text); 
      Parameters.ParamByName('t19').Value          := StrToInt(rawateb.Edit33.Text); 
      Parameters.ParamByName('t20').Value          := StrToInt(rawateb.Edit34.Text); 
      Parameters.ParamByName('t21').Value          :=StrToInt(rawateb.Edit35.Text); 
      Parameters.ParamByName('t22').Value          :=StrToInt(rawateb.Edit39.Text); 
      Parameters.ParamByName('t23').Value          := StrToInt(rawateb.Edit36.Text); 
      Parameters.ParamByName('t24').Value          := StrToInt(rawateb.Edit37.Text); 
      Parameters.ParamByName('t25').Value          :=StrToInt(rawateb.Edit17.Text); 
 {     Parameters.ParamByName('t26').Value             := typevalue1 ;  } 
      Parameters.ParamByName('t27').Value          := StrToInt(rawateb.Edit9.Text); 
      Parameters.ParamByName('t28').Value          := StrToInt(rawateb.Edit10.Text); 
  {    Parameters.ParamByName('t29').Value         := edrag1 ;       } 

       Parameters.ParamByName('w1').Value := rawateb.Edit24.Text ; 
      Parameters.ParamByName('w2').Value  := rawateb.Edit9.Text; 
      Parameters.ParamByName('w3').Value  := rawateb.Edit10.Text ; 
       ExecSQL ;