怎样用代码添加字段？？(100分)

DELPHI中怎样用代码实现为一个数据表格添加字段？？？

例：在Paradox数据表中增加一个字段：
ALTER TABLE "Mytable.db" ADD BirthDay Date //增加BirthDay字段

删除两个字段并建立新字段：
ALTER TABLE "Mytable.db" DROP Age, DROP Address, ADD
BirthDay Alpha[10] //删除Age,Address字段，增加BirthDay字段

可以用create table重建

答过不知多少次了

你就不能再说一遍吗？？

if not Table1.Exists then { Don't overwrite an existing table }

begin
with Table1 do
begin
Active := False; { The Table component must not be active }

{ First, describe the type of table and give it a name }
DatabaseName := 'DBDEMOS';
TableType := ttParadox;
TableName := 'CustInfo';

{ Next, describe the fields in the table }
with FieldDefs do
begin
Clear;
Add('Field1', ftInteger, 0, True);
Add('Field2', ftString, 30, False);

end;

{ Next, describe any indexes }
with IndexDefs do
begin
Clear;
{ The first index has no name because it is a Paradox primary key }
Add('', 'Field1', [ixPrimary, ixUnique]);
Add('Fld2Indx', 'Field2', [ixCaseInsensitive]);
end;

{ Now that we have specified what we want, create the table }
CreateTable;
end;
end;

Liu JZX
你说的是创建一个表格！ 我需要在一个已有的表格上
用代码添加一个字段！！

SACHOW：我按你说的方法确实可以给数据表格添加一列
但会把数据表格破坏。
我是对FOXPRO的表格操作的，添加完字段后，
FOXPRO已不能把此表格打开，说这不是一个表！！
请问这是为什么？？并且有时表格内的字段记录会变成乱码？？？？