Campo nuevo en tiempo de ejecución

[NeoNew]

Holaa AdrianMex...
Agregar 40 campos string a una tabla:

Código Delphi [-]
  ABSTable1.Close;
  intHasta := 40;
  for i := 1 to intHasta do
  begin
    strCampo := IntToStr(i);
    ABSTable1.RestructureFieldDefs.Add(strCampo,aftString,10,False);
  end;
  ABSTable1.RestructureTable(absLog);
  ABSTable1.Open;

Me cuentas...