A:

procedure TForm1.Button1Click(Sender: TObject);
const
  MaxTableCount = 100;
  MaxFieldCount = 50;
var
  t: tTable;
  TableCount, xFieldCount: integer;
begin
  for TableCount := 1 to MaxTableCount do begin
    t := tTable.create(self);
    with t do begin
      DatabaseName := 'Lloyd';
      TableName := 'hoser' + IntToStr(TableCount);
      TableType := ttParadox;

      with FieldDefs do begin
        Clear;
        for xFieldCount := 1 to MaxFieldCount do
          Add('Field' + IntToStr(xFieldCount), ftInteger, 0, false);
      end;

      with IndexDefs do begin
        Clear;
        Add('Field1Index', 'Field1', [ixPrimary, ixUnique]);
      end;

      CreateTable;
      close;
      free;
    end;
  end;
end;