Criar indice na Tabela

Gostaria de saber como fasso para criar um indice na tabela em tempo de execução?

estou fazendo assim, só falta o indice

strsql:=´create table ´+nometabela;
strsql:=strsql+´(burro AutoInc, datavenda DATE,codigo CHARACTER(45),descricao CHARACTER(45),variacao CHARACTER(5),quantidade INTEGER,tiporeceita CHARACTER(1),´;
strsql:=strsql+´medico CHARACTER(50),nvisitas NUMERIC(15,2),nvisitasobj NUMERIC(15,2),objetivorec NUMERIC(15,2),varvisita NUMERIC(15,2),divulgadora CHARACTER(30),totalrec NUMERIC(15,2),Primary Key (burro))´;
dmdiv.Qreceita.SQL.Clear;