Crear índice en runtime

[Gabriel2]

procedure TForm1.Button1Click(Sender: TObject);
begin
  if not Table1.Exists then
  begin
	Table1.Active	   := FALSE;
	Table1.DatabaseName := 'C:\Directorio';
	Table1.TableType	:= ttParadox;
	Table1.TableName	:= 'Mi DB';
	with Table1.FieldDefs do
	begin
	  Clear;
	  Add('AutoInc', ftAutoInc,  0, true) ;
	  Add('StringField' , ftString , 30, FALSE);
	  Add('LogicalField', ftBoolean,  0, FALSE);
	  Add('FloatField'  , ftFloat  ,  0, FALSE);
	  Add('DateField'   , ftDate   ,  0, FALSE);
	  Add('TimeField'   , ftTime   ,  0, FALSE);
   end;
   Table1.IndexDefs.Clear;
   Table1.IndexDefs.Add('', 'AutoInc', [ixPrimary]);
   Table1.CreateTable;
  end;
end;

Así me funcionó. Gracias...