如何完全关闭数据库？(100分)

我建了一个临时数据库，当我重复建立该库时报错，请帮帮我，谢谢。
with table8 do begin
Active:=false;
DatabaseName:=extractfilepath(application.exename)+'db'; {数据库别名}
TableName:='bq.dbf'; {表格名}
TableType:=ttdefault; {数据库类型}
with FieldDefs do begin {增加字段}
Clear;
Add('yb',ftString,6,false);
Add('dz',ftString,50,false);
Add('dw',ftString,50,false);
Add('sjr',ftString,20,false);
Add('sh1',ftString,12,false);
Add('sh2',ftString,12,false);
Add('lsh',ftString,12,false);
Add('zbs',ftString,5,false);
Add('zcs',ftString,7,false);
CreateTable;
Active:=true;
end;
end;

Table8.Close;应该能够关闭.

Table8.Close；
TABLE8.ACTIVE:=FALSE;
我都试过，错误报告table8 忙.

我看直接给Free了得了。

是否这句有问题：
DatabaseName:=extractfilepath(application.exename)+'db';
使用数据库别名时，一定要先在delphi的database explore中
注册。

FREE后在重新建立还是报错，应该与DatabaseName:=extractfilepath(application.exename)+'db';无关。我用的是dbf文件。

用DB文件试试。

to K:
我实际测试了一下你的代码，在我这里没有你的问题。
环境是delphi5+BDE5.1

这么烦干吗？用QUERY 好多了，TABLE又慢，又没多大用，该改一改了。

谢谢各位的帮助，问题找到了，是我的错误，忘了将另一个table关掉。
谢谢hpretty建意，我现在正在改，可对sql不太熟悉.经常出现愚笨的错误，
以后还请大家多帮助。

多人接受答案了。