Разместите строчку типа нижеприведенной в конце кода обработчика события OnCalcFields:
OAmiry/Borland [000571]