Вопрос снимется.
Кому интересно —
переписываем DataSet::CalculateFields
в ней убираем все фильтры на всех Lookup полях
DataSet->Filtred=false
вызываем истинную DataSet::CalculateFields
устанавливаем снова DataSet->Filtred=true по всем Lookup полям.
И все работает,
проверено на практике