[Страдалецъ]

Код:

program Project8;

{$APPTYPE CONSOLE}

uses
  SysUtils, Variants, ComObj, ActiveX;

Const
  adKeyPrimary = 1;
  adKeyForeign = 2;
  adKeyUnique = 3;

  adInteger = 3;
  adDate = 7;
  adVarWChar = 202;

Var
  Mdb,Tbl,Idx: Variant;
begin
 Coinitialize(nil);
 Mdb := CreateOleObject('ADOX.Catalog');
 Mdb.Create(Format('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s',['g:\1\DB1.mdb']));
 Tbl := CreateOleObject('ADOX.Table');
 Tbl.Name := 'Table1';
 Tbl.ParentCatalog := Mdb;
 Tbl.Columns.Append('intField', adInteger);
 Tbl.Columns.Append('txtField', adVarWChar, 50);
 Tbl.Columns.Append('dateField', adDate);
 Mdb.Tables.Append(Tbl);

 Idx := CreateOleObject('ADOX.Key');
 Idx.Name := 'PrimaryKey';
 Idx.Type := adKeyPrimary;
 Idx.Columns.Append('intField');
 Mdb.Tables[Tbl.Name].Keys.Append(Idx);
 Idx := Unassigned;
 Tbl := Unassigned;
 Mdb := Unassigned;
 CoUninitialize;
end.