一个建立动态数据表的问题(50分)

请看一下这段程序，看看问题出在哪？
with table1 do begin
Active:=false;
DatabaseName:='Cntssamp'; {数据库别名}
TableName:='TSK'; ？？？表名怎么能动态指定
TableType:=ttParadox; {数据库类型}
with FieldDefs do begin {增加字段}
Clear;
Add('SH',ftString,30,False); {书号 String(30)}
Add('SM',ftString,30,False); {书名 String(30)}
Add('CBS',ftString,20,False); {出版社 String(20)}
Add('CBRQ',ftDate,0,False); {出版日期 Date}
Add('YS',ftInteger,0,False); {页数 Integer}
end;
with IndexDefs do begin {增加索引}
Clear; {按书号字段建立主索引}
Add('SHSY','SH',[ixPrimary,ixUnique]);
end;
CreateTable; {创建表格}
end;

with table1 do begin
Active:=false;
DatabaseName:='Cntssamp'; {数据库别名}
TableName:='TSK'; ？？？表名怎么能动态指定
end;
就可以了.
要那么多没有的东西.

我的目的是要建立这个表。

没看懂什么意思。
paradox的表，databasename可以直接指定目录名
tablename:=aName;//aName就是表名，是一个字符串
这不就动态指定了吗?

我试了你的程序，没发现错误啊

应该没有问题，
这个例子和delphi自带的例程很类似(tfielddefs)