como hacer un fichero indice

[Antuan]

Como ves el error era mio habia puesto TRadioGroup y tambien los ButtonRadio y no habia puesto los Item.
Asi queda mucho mejor.
Ya tengo casi todo en tiempo ejecucion
Me falta la parte que se hace con el DataBase Dektop o sea crear los indices.
Que no encuentro documentacion de como se hacen y tambien caso que existan no lo cree.
Muchas Gracias

[[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.