delphi连接oracle数据库怎么日期语句保存不进去？？？在线等待

请大家帮忙看下怎么我写的日期语句是不是有问题？？？
var  sSql:string;
  DateOfBirth: TDatetime;
begin
  sSql := 'select * from user_no where user_id = ' + QuotedStr(EditNo.Text);
  with ADOQuery1 do
  begin
    close;
    sql.Clear;
    sql.Text:=sSql;
    open;
    if  RecordCount > 0 then
    begin
      application.MessageBox(Pchar('该员工已经存在'),Pchar('提示'));
      exit;
    end;
    sSql:='insert into user_no(user_id,user_name,'
            + 'user_address,user_password,user_role,user_sex)'
            + 'values('+ QuotedStr(editNo.Text)+','+ QuotedStr(editName.Text)+','
            + QuotedStr(editAdress.Text)+','
            + QuotedStr(editPwd.Text)+','+QuotedStr(comrole.Text)+','
            + QuotedStr(comsex.Text)+')';
    close;
    sql.Clear;
    Sql.Text := sSql;
    Execsql;
    DateOfBirth := DateOf(datetimepicker1.DateTime);
    if (DateOfBirth<100) and (DateOfBirth >20) then
    begin
       sSql:='update user_no set user_date=to_date(' + QuotedStr(DateTimeToStr(DateOfBirth)) + ',''yyyy-mm-dd'')'
           +' where user_id=' +QuotedStr(editNo.Text);
       close;
       sql.Text:=sSql;
       Execsql;
    end;
    application.MessageBox(Pchar('保存成功'),Pchar('提示'));
   end;
  end;