como hacer un fichero indice

[[Lepe]]

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.