表结构:
SQL> desc d
 名称                                      是否为空? 类型
 ----------------------------------------- -------- ----------------------
 ID                                        NOT NULL VARCHAR2(10)
 TM                                                 DATE
 JIFEN                                              NUMBER(8)程序代码:
procedure TForm1.Button1Click(Sender: TObject);
var
  sj: string;
begin
  sj := formatdatetime('yyyy-mm-dd ',now());
  query1.SQL.Clear;
  query1.SQL.Add('insert into D(id,TM) values(''sa'','+to_date('yyyy-mm-dd hh:mm:ss',sj)+')'); //错误,该怎么写??
  query1.ExecSQL;
  query1.Close;
end;问题:
sql语句错误,请高手不吝指教!!