Sources
Delphi Russian Knowledge Base
DRKB - это самая большая и удобная в использовании база знаний по Дельфи в рунете, составленная Виталием Невзоровым

Динамическое создание полей

01.01.2007
var
  I
: Integer;
 
Field: TField;
begin
 
{ Поля можно добавлять только к неактивному набору данных. }
  Table1
.Active := False;
 
 
{ Распределяем определенные поля если набор данных еще не был активным. }
  Table1
.FieldDefs.Update;
 
 
{ Создаем все поля из определений и добавляем к набору данных. }
 
for I := 0 to Table1.FieldDefs.Count - 1 do
 
begin
   
{ Вот где мы действительно сообщаем набору данных о необходимости создания поля. }
   
{ Поле "назначается", но нам нужно не это, нам нужна просто ссылка на новое поле. }
   
Field := Table1.FieldDefs[I].CreateField(Table1);
 
end;
 
 
{ Вот пример того, как вы можете добавить дополнительные, вычисленные поля }
 
Field := TStringField.Create(Table1);
 
Field.FieldName := 'Total';
 
Field.Calculated := True;
 
Field.DataSet := Table1;
 
 
{ Теперь мы можем увидеть наши поля. }
  Table1
.Active := True;
end;

Взято с https://delphiworld.narod.ru