请帮忙看看这些程序哪里有错啊。。。

var a,s:string;
begin

   s:='update person set id='''+dbedit1.text+''',groupid='''+dbedit2.text+''',firstname='''+dbedit3.text+''',lastname='''+dbedit4.text+''',chinesename='''+dbedit5.text+''',sex='''+dbedit9.text+''',nationality='''+dbedit10.text+''',birth='''+dbedit11.text+''',passport_type='''+dbedit12.text+''',passport_num='''+dbedit13.text+''',place='''+dbedit16.text+''',mate_name='''+dbedit17.text+''',mate_nationality='''+dbedit18.text+''',over_date='''+dbedit9.text+''',duty='''+dbedit20.text+'''';    s:='update pe