var
Field: TField;
i: Integer;
begin
Table1.Close;
for i:=0 to Table1.FieldDefs.Count-1 do
Field:= Table1.FieldDefs[i].CreateField(Table1);
Field:= TBooleanField.Create(Table1);
with Field do
begin
FieldName:= 'NUEVO_CAMPO';
Calculated:= True;
DataSet:= Table1;
end;
Table1.Open;
end;