計算項目を計算するQueryのOnCalcFieldsイベントの内容をClientDataSetのOnCalcFieldsイベントに移動します。