var v: Variant;
begin
  v := CreateOleObject('Access.Application');
  v.NewCurrentDatabase('C:\db1.mdb');
end;

var catDB: Catalog;
  tblNew: Table;
begin
  // 利用 ADOX 組物件來動態產生 Access Table
  // 須先 import type library -> Microsoft Jet and Replication Objects 2.5 Library (Version 2.5)
  catDB := CoCatalog.Create;
  catDB.Set_ActiveConnection(ADOConnection1.ConnectionObject);
  tblNew := CoTable.Create;
  with tblNew do begin
    Name := 'TableA';
    with Columns do begin
      Append('EmpID',      adVarWChar, 10);
      Append('EmpName',    adVarWChar, 10);
      Append('Phone',      adVarWChar, 15);
    end;
  end;
  catDB.Tables.Append(tblNew);
  catDB := nil;
end;