Fórum Fieds Editor do Table #289253

var   
   i : Integer;
   MyField: TField;

begin

   // Limpar campos existentes
   Table.FieldDefs.Clear;


   Table.FieldDefs.Update;


   for i := 0 to Table.FieldDefs.Count - 1 do
   begin

      MyField := Table.FieldDefs[I].CreateField(Table);

      // Aqui vc pode acertar todas as propriedades dos campos como vc faria no editor
      MyField.Name := Table.Name + Table.FieldDefs[i].Name;
      MyField.DisplayLabel := Table.FieldDefs[i].Name;

   end;

   Table.Open;

end;