删除数据为什么错？代码错在何处？

[wjb]

mm:=DBEdit1.text;
ADOQuery4.Close;
ADOQuery4.SQL.Clear;
ADOQuery4.sql.Add('delete * from unit where name='+quotedstr(mm));
ADOQuery4.ExecSQL;
DBEdit1.text:='';
self.Close;
self.Free;
form7.show;

[linx88]

self.Free;出错，
在类的方法中执行该类对象的释放操作。

[wjb]

谢谢，我是想删除后刷新一下，如何改？

[ziqing]

'delete from unit where name='+quotedstr(mm));

[gzllich]

错误信息是什么？我发现有好几个地方不对头：1.ADOQuery4.sql.Add('delete * from unit where name='+quotedstr(mm)),应为ADOQuery4.sql.Add('delete from unit where name='+quotedstr(mm));2.里面用了unit，不知是否关键字；3.self.Close;self.Free;你这是释放父窗口吗？4.

[34535345345345345345]

同意 gzllich(刚从泥坑里出来)

[cjfzy]

--self.Close;
--self.Free;
这两句你要干什么？把你要做得说出来。