DAO的打包问题？(200分)

我的代码是想动态生成ACCESS97数据库文件，但本程序在发布时总是以下两句无法通过，我下载了DAO3.5和3.6的包，安装后依然通不过，系统提示未注册该类别，我该怎么办呢？
use
dao97,
.
.
.
.
.
.
var
EngineBEngine;
scwj:string;

begin
.
.
.
.
.
.
Engine:=CoDBEngine.Create;
Engine.CreateDatabase(scwj,';LANGID=0x0804;CP=936;COUNTRY=0;',dbEncrypt);

到cakk.126.com去下载一个DiamondDAO2 Source控件，它有一个动态创建
access数据库的例子

delphi.mychangshu.com有一个左轻候写的控件，很不错的。

这个地方错了：
var
EngineBEngine;
应为 Engine:_DBEngine;
以下调试通过：
procedure TForm1.Button1Click(Sender: TObject);
var a:_DBEngine;
db: Database;
td: TableDef;
idx:Index;
begin

a:=CoDBEngine.Create;
db:=a.CreateDatabase('c:/a.mdb',';LANGID=0x0409;CP=936;COUNTRY=0', 0);
td := db.CreateTableDef ('Orders', 0, '', '');
td.Fields.Append (td.CreateField ('Order_ID', dbInteger, 0));
td.Fields.Append (td.CreateField ('Order_DATE', dbDate, 0));
td.Fields.Append (td.CreateField ('Order_CLIENT', dbText, 50));
td.Fields.Append (td.CreateField ('Order_TOTAL', dbCurrency, 0));

idx := td.CreateIndex ('Primary');
idx.Set_Primary(True);
idx.Fields.Append (idx.CreateField ('Order_ID', dbInteger, 0));
td.Indexes.Append (idx);
db.TableDefs.Append (td);
db.Close;
end;

安装时：WinMe/2k/xp不用安装dao的驱动程序，系统自带
若是win98需要带一个Qtintf.dll这个文件4M多(dao3.6)

多人接受答案了。