C++ Builder中如何动态建立数据表，不要求动态建立BDE别名(200分)

C++ Builder中如何动态建立数据表，不要求动态建立BDE别名。
比如Foxpro数据库从建立字段到建立表，请给出简单的源程序好吗？

用Session创建表别名。
用TQuery，CREATE语句创建表。
void __fastcall TForm1::Button1Click(TObject *Sender)
{
AnsiString Dir;
AnsiString S;
TQuery *AQuery;

try{
Dir = ExtractFilePath(ParamStr(0)) + "DATA//";
ForceDirectories(Dir);
Session->AddStandardAlias("TEST", Dir, "PARADOX");
Session->SaveConfigFile();

AQuery = new TQuery(this);
try{
AQuery->DatabaseName = "TEST";

S = "CREATE TABLE /"TESTTBL.DB/" ("
" 索引 AUTOINC,"
" 姓名 VARCHAR(40),"
" 地址 VARCHAR(60),"
" 电话 VARCHAR(20),"
" 电子邮件 VARCHAR(40),"
" PRIMARY KEY (索引))";
AQuery->Close();
AQuery->SQL->Clear();
AQuery->SQL->Add(S);
AQuery->ExecSQL();
}
__finally{
delete AQuery;
}
}
catch (...){
}
}

回答得无懈可击！——从创建别名到创建数据表。

接受答案了.