[[eduarcol]]

Código Delphi [-]
with TTable.Create(Application) do
begin
   //Añade los campos
   FieldDefs.Clear;
            FieldDefs.Add(NombreCampo,TipoDato,Longuitud,Requerido);
   //Añade los indices
   IndexDefs.Clear;
               with IndexDefs.AddIndexDef do
               begin
                  Name := NombreIndice;
                  Fields := NombreCampo;
                  Options := Opcion;
               end;
            end;

  CreateTable;
end;

Se me adelanto Marcos

La diferencia es que el lo hace por SQL yo lo hago por los metodos propios del TTable