如何动态生成一个Access的表？特急！！！(100分)

我想通过程序自动生成一个Access的表，即我在某一个表aa中输入想生成的新表
的所有字段名，字段类型，字段长度.....，然后，程序能自动根据表aa中的
内容，生成一个新的表bb,表bb的字段名，字段类型，字段长度都根据表aa
的内容生成，不知应如何实现，请高手尽可能详细指导！谢谢！。我用的是Delphi5，
数据库是Access2000。我得Email：hzyingmu@21cn.com

procedure CreateATable(DBName,TblName:String,TblTyoe:TTbaleType);
var
tbl:TTable;
Begin
tbl:=TTable.Create(Application);
with tbl do Begin
Active:=False;
DatabaseName:= DBName :
TableName:=TblName;
TableType:=TblType;
with FieldDefs do begin
Clear;
Add('LastName',ftString,30,False);
Add('FirstName',ftString,30,False);
Add('Address',ftString,40,False);
Add('Zip',ftString,10,False);
end;
{加入主关键字}
With indexDefs do begin
Clear;
Add('FieldIndex','LastName;FirstName',[ixPrimary,ixUnique]);
end;

CreateTable;
end;
end

接受答案了.