Problemas al Crear MDB con Access

[Blackspike]

Buenos dias, tengo un problema con delphi 7, estoy haciendo una aplicacion, donde hay unas empresas y cada empresa puede tener unos años, cada año es una base de datos mdb. El problema que tengo es que cuando genero la Base de Datos MDB no se como poner el campo clave. Espero que alguien me pueda ayudar.
Os paso lo que tengo puesto en el codigo. Gracias de antemano.

Código Delphi [-]
 
procedure TfrmEmpresas.CrearMDB(ruta: string);
var
  Catalogo:_Catalog;
  Tabla:_Table;
  DS:String;
begin
    Catalogo:=CreateComObject(StringToGUID('ADOX.Catalog')) as _Catalog;
    DS:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source = '+ruta;
    if FileExists(ruta) then DeleteFile(ruta);
    Catalogo.Create(DS);
    Tabla:=CreateComObject(StringToGUID('ADOX.Table')) as _Table;
    Tabla.Name:='Acabados';
    Catalogo.Tables.Append(tabla);
{campo clave}    Tabla.Columns.Append('Codigo',varInteger,4);
    Tabla.Columns.Append('Descripcion',adVarWChar,50);
    Tabla:=CreateComObject(StringToGUID('ADOX.Table')) as _Table;
    Tabla.Name:='Articulos';
    Catalogo.Tables.Append(tabla);
{campo clave}    Tabla.Columns.Append('Codigo',adVarWChar,15);
    Tabla.Columns.Append('Descripcion',adVarWChar,255);
    Tabla.Columns.Append('Coste',varInteger,255);
    Tabla.Columns.Append('Venta',varInteger,255);
    Tabla.Columns.Append('Tipo',varInteger,255);
end;