数据库中添加新建一个数据表(100分)

我原来想在一个数据库中添加新建一个数据表，用table.CreateTable,并马上通过BDE与DBGrid1连接输出。它
可以运行新建一个表，但就是不可以连接并输出，并会提示出错。具体的过程代码如，请各位帮帮忙。
with datamodule1 do
begin
database1.Connected :=false;
database1.aliasname:='notitle';
database1.DatabaseName :='mycoma';
end;
with datamodule1.table1 do
begin
Active:=false;
DatabaseName:='notitle'; {数据库别名}
TableName:='notitle'+IntToStr(nametime)+'.dbf'; {表格名}
TableType:=ttFoxPro; {数据库类型}
with FieldDefs do
begin {增加字段}
Clear;
Add('name',ftString,8,false);add('shuxie',ftstring,8,false);add('sex',ftBoolean,0,false);
end;
CreateTable; {创建表格}
end;

{重获数据表名}{与这步没关系}
ap.sorted:=false;
ap.Add('notitle'+IntToStr(nametime)+'.dbf');
{设置连接}
with datamodule1 do
begin
database1.connected:=true;
table1.Active :=true;
datasource1.DataSet :=table1;
end;

先用QUERY创建表，然后再用QUERY或TABLE打开不就行了嘛！

大哥，哪步出错？

建表何必这么复杂呢,用TQuery写SQL语句不是更好吗?