[Neftali [Germán.Estévez]]

Código Delphi [-]
...
          
           Col := CreateOLEObject('ADOX.Column');
          Col.ParentCatalog := Cat;
          Col.Name := sKey;
          Col.Type := adInteger;
          Col.Properties('Autoincrement') := True;
          Table.Columns.Append(Col);

Me olvidé de colocar el Link.