Не работает CreateCalcFields

[bvsoft]

Приветствую!
Перед открытием данных в TpFibDataset создаем калькулируемые поля через CreateCalcField. Но после открытия датасета обнаруживаем, что в нем нет никаких полей, кроме созданных калькулируемых. Обнаруживаем также, что вообще все создаваемые нами объекты TpFibDataset имеют DefaultFields значение false, отсюда в CreateCalcFields не срабатывает код:

if DefaultFields then Include(FRunState,drsForceCreateCalcFields);

из-за этого в открываемом датасете в TFIBCustomDataSet.InternalOpen не срабатывает

if drsForceCreateCalcFields in FRunState then
Exclude(FRunState,drsForceCreateCalcFields);
CreateFields;
SetDefaultFields(True);
....

если же в TFibCustomDataset
исправить

property qDefaultFields:boolean read GetDefaultFields ;

на исходное

property DefaultFields:boolean read GetDefaultFields ;

то конкретно ЭТА проблема решится. Но не зря ж там это "q" поставили.... Проблема!