delphi 第一行:')'附近有语法错误

都不好意思上来问了，这么简单的第一添加都不会，各位大哥大姐帮帮忙，看看哪错了
procedure TForm10.Button1Click(Sender: TObject);
  var
   a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p:string;
begin
   a:=trim(edit1.Text);
   b:=trim(edit2.Text);
   c:=trim(edit3.Text);
   d:=trim(edit4.Text);
   e:=trim(edit5.Text);
   f:=trim(edit6.Text);
   g:=trim(edit7.Text);
   h:=trim(edit8.Text);
   i:=trim(edit9.Text);
   j:=trim(edit10.Text);
   k:=trim(edit11.Text);
   l:=trim(edit12.Text);
   m:=trim(edit13.Text);
   n:=trim(edit14.Text);
   o:=trim(edit15.Text);
   if((a='')or(b='')or(c='')or(d='')or(e='')or(f='')or(g='')or(h='')or(i='')
     or(j='')or(k='')or(l='')or(m='')or(n='')) then
      begin
       showmessage('输入信息有误，请确认!');
      end
      else
       begin
      p:='select * from YGXX where 员工编号='+quotedstr(edit1.Text);
      ADOQuery1.SQL.Add(p);
      ADOQuery1.Open;
       if ADOQuery1.RecordCount<>0 then
        begin
        showmessage('该用户已存在，请确认!');
        exit;
        end
       else
      p:='insert into YHXX(员工编号,姓名,性别,生日,民族,是否结婚,身份证号,文化水平,专业,毕业院校,联系电话,电子邮件,职位,地址,备注）values('+a+','+b+','+c+','+d+','+e+','+f+','+g+','+h+','+i+','+j+','+k+','+l+','+m+','+n+','+o+')';

     ADOQuery1.SQL.Clear;
     ADOQuery1.SQL.Add(p);
     ADOQuery1.ExecSQL;
     showmessage('添加成功!');
     close ;
     end;
或者哪位高手能帮我贴个添加的代码，谢谢