procedure TForm1.BitBtn1Click(Sender: TObject);
var
i: integer;
begin
with Table1 do
Table1.TableName := 'TestTable';
with Table1.FieldDefs do
begin
Clear;
with AddFieldDef do
begin
Name := 'LINK_ID';
DataType := ftInteger;
Required := True;
end;
for i := 1 to StrToInt(Edit1.Text) do
with AddFieldDef do
begin
Name := 'Field'+IntToStr(i);
DataType := ftString;
Required := True;
end;
end;
Table1.CreateTable;
end;