动态创建一个Table表格
with TTable.Create(self) do
begin
DatabaseName:='c:\Temp';
TableName:='FOO';
TableType:=ttParadox;
with Fieldefs do
begin
Add('Age',ftInteger,0,True);
Add('Name',ftString,25,False);
Add('Weight',ftFloat,0,False);
end;
IndexDefs.Add('','Age',[ixPrimary,ixUnique]);
CreateTable;
end;