Código Delphi
[-]
TablaTrabajo.Exclusive := true;
TablaTrabajo.SessionName := SessionName;
Application.ProcessMessages;
Borraindices(Dirbases,'Adicional.DB');
TablaTrabajo.TableName := 'Adicional.DB';
Try
TablaTrabajo.open;
progreso.Position := progreso.Position +1;
TablaTrabajo.Addindex('PrimaryKey','Clave',[ixPrimary, ixUnique]);
progreso.Position := progreso.Position +1;
TablaTrabajo.Addindex('FidCliente','FidCliente',[]);
progreso.Position := progreso.Position +1;
TablaTrabajo.Close;
progreso.Position := progreso.Position +1;
Esto es para tablas paradox, para dbf quizás sea parecido, mira el programa
http://www.clubdelphi.com/ejemplos/caerques1-1.zip
que crea código delphi para tu programa.