可恨的Access日期

procedure TForm1.Button11Click(Sender: TObject);
var
tmpd,tmpt:tdatetime;
tmpd1,tmpt1:string;
begin
query1.Close;
query1.SQL.Clear;
tmpd := strtodate(edit4.text);
tmpt := strtotime(maskedit5.text);
tmpd1 := formatdatetime('yyyy-mm-dd',tmpd); // 'yyyy/mm/dd' 'yyyy/m/d' 都行
tmpt1 := formatdatetime('hh::mm',tmpt); // 必须是::否则错！
query1.SQL.Add('insert into dd(短日期,短时间,文本,备注,文本) values(#'+tmpd1+'#,#'+tmpt1+'#,:v1,:v2,:v3)');
query1.Params[0].AsString := edit5.Text;//‘111’
query1.Params[1].AsString := edit6.Text;//‘试验试验试验’
query1.Params[2].AsString := edit7.Text;//‘小王’

query1.Prepare;
query1.ExecSQL;

end;