帮忙看看这个，急用！

我做了一个修改记录的窗体
他提示什么类型出错
帮我看看那里错了！
源码：
procedure TForm5.Button1Click(Sender: TObject);
begin
self.ADOQuery1.close;
self.ADOQuery1.SQL.Clear;
self.ADOQuery1.SQL.Add('update maintable');
self.ADOQuery1.SQL.Add('set no =:nu,sttime=:time,stwork=:work,edtime=:endtime,edwork=:show,flag=:flag1');
self.ADOQuery1.Parameters.ParamByName('nu').Value:=dbedit1.Text;
self.ADOQuery1.Parameters.ParamByName('time').Value:=strtodate(dbedit2.text);
self.ADOQuery1.Parameters.ParamByName('work').Value:=dbedit3.text;
self.ADOQuery1.Parameters.ParamByName('endtime').Value:=strtodate(dbedit4.Text);
self.ADOQuery1.Parameters.ParamByName('show').Value:=dbedit5.text;
self.ADOQuery1.Parameters.ParamByName('flag1').Value:=dbedit6.Text;
self.ADOQuery1.open;
end;