能否在Delphi中动态建一个FOXPRO的表？(100分)

求助：我想在delphi中动态建一个FOXPRO的TABLE，不知如何实现？

在你的程序中用SQL
Query1.Sql.add('CREATE TABLE "employee.dbf"
(
LAST_NAME CHAR(20),
FIRST_NAME CHAR(15),
SALARY NUMERIC(10,2),
DEPT_NO SMALLINT
)');
query1.execsql;

有个MAKEDBF的控件，能根据你的数据库生成生成数据库PAS源代码

先检测有无jjk.dbf 再增加字段
procedure TMAINFORM.SpeedButton5Click(Sender: TObject);
var
ap:tStringlist;
ppp:string;
begin
ap:=tstringlist.Create;
session.gettablenames('c:/gzxt','',false,false,ap);
if (ap.indexof('jjk')=-1) then
begin
if application.MessageBox('not exit tsk.dbf','information',mb_okcancel)
=idcancel then
begin
ap.free;
exit;
end;
end
else
begin
if (datam.Table1.FindField('jjs199902'))=nil then
begin
IF (application.messagebox('本月没有计算奖金,计算吗?','消息框',mb_okcancel+mb_defbutton1+mb_iconquestion)
=idok) then
begin
with datam.table1 do
begin
active:=false;
databasename:='c:/gzxt';
tablename:='jjk';
tabletype:=ttdbase;
ppp:='jjs199902';
with fielddefs do
begin
add(ppp,ftstring,20,false);
end;
createtable;
end;
end;
end;
ap.free;
end;
end;

由于近期没有上网，所有各位的解答现在才看到。谢谢各位的指点。