[waly2k1]

Núnca creé una BD de esta manera, pero lo que propones podés hacerlo mediante un Alter Table
Así:
Ya sea por un TAdoQuery, TQuery o lo que mas te guste.

sSQL :String;
sSQL := 'ALTER TABLE Articulos ADD CONSTRAINT NombrePK PRIMARY KEY (Codigo)';

Donde NombrePK es el nombre (Opcional sino poné PRIMARYKEY a todas y listo) y entre paréntesis los campos que incluyen en la PK.

Query.SQL.Text := sSQL;
Query.Execute;

Ojo fijate bien la sintaxis del Query, ya que no tengo Delphi acá, como para probar y darte un ejemplo válido. Pero ha de funcionar.

Salu2 y espero te sirva mi Rta.
Walter


Juás acá me robé un pedazo de código de un execute hihi
con lo cual te quedará así:
Query1.Sql.Clear;
Query1.Sql.Text := sSQL;
Query1.ExecSQL;

No puedo probarlo.