var
   F: TIntegerField;
begin
  with Query1 do begin
    Close;
    F := TIntegerField.Create(Query1);
    F.FieldName := 'CalcFld';
    F.Calculated := true;
    F.DataSet := Query1;
    FieldDefs.Update
  end;
end;