Fórum o que tem de errado neste select? #426376

CSQL += "CREATE TABLE GRUPOS("
CSQL += " CODGRU INTEGER DEFAULT 0 NOT NULL ,"
CSQL += " CODSGRU INTEGER DEFAULT 0 NOT NULL ,"
CSQL += " GRUPO VARCHAR(30) DEFAULT '',"
CSQL += " MARGEM NUMERIC(15,2) DEFAULT 0 ,"
CSQL += " CONTABIL VARCHAR(30) DEFAULT '')"
OCREATETABLE:Open(CSQL,CNN,2,3)
CSQL := "ALTER TABLE GRUPOS ADD CONSTRAINT PK_GRUPOS PRIMARY KEY(CODGRU, CODSGRU)"
OCREATETABLE:Open(CSQL,CNN,2,3)
CSQL = "CREATE INDEX GRUPO_IDX1 ON GRUPOS (GRUPO)"
OCREATETABLE:Open(CSQL,CNN,2,3)

pessoal, seguinte, ele cria a tabela sem problema, cria o indice GRUPO_IDX1,
porem no ibexpert, não aparece o indice PK_GRUPOS, mas apareceu um
RDB$PRIMARY115 na cor vermelha, acho que tem algo errado, só não sei o que