求助：出现“在关键字where附近有语法错误”
我改了半天也没改好，请各位高手帮忙看下，程序如下：
procedure Tbaseinputfrm.Input_OkClick(Sender: TObject);
var
 modsql,sex:string;
begin
if basedata.CheckRec(edit1.Text)=true then//判断员工编号是否已经存在
   begin
      showmessage('该员工编号已经存在，插入失败!');
      exit;
   end;
//判断性别
if sexhk1.Checked then sex:='男';
if sexhk2.Checked then sex:='女';
//赋值SQL语句更改插入记录的其他内容
modsql:='update base_data set worker_name='''+edit2.Text+''','
         +'sex='''+sex+''',native_place='''+edit3.Text+''','
         +'address='''+edit4.Text+''',department_name='''+edit5.Text+''','
         +'birthday='''+datetostr(datetimepicker1.Date)+''','
         +'remark='''+memo1.Text+''', '
         +'where worker_id='''+edit1.Text+'''';
basedata.RecUpdate(modsql);
application.MessageBox('新建成功!','提示：',mb_ok);
//插入新员工信息后触发显示界面的OnActive事件刷新显示
basefindfrm.FormActivate(Sender);
end;