Delphi - Otra solución posible

Aquí te mando una solución posible. En un simple ejemplo que calcula la ganancia en base a un costo y un precio. La ganancia se mostrará en un campo calculado del tipo TFloatField. El costo y precio son objetos del tipo TFloatField creados a partir de los campos de tipo number, (que se llaman costo y precio) de una tabla creada con el database deskttop y vinculada al objeto ttable table1.

Debes programar:
DE cada objeto TfloatField
· La propiedad Displayformat de cada objeto Tfield por ejemplo con el dato aalfanumérico $ ##0.## (en el mismo el sino $ es para que este se vea y el resto del formato se fija para usar números con dos dígitos detrás de la coma tal que siempre se vea el primer dígito entero aunque el dato valga 0.).
· La propiedad EditFormat de cada uno de los anteriores con el dato ##0.## (se le quita el signo $ para que no de error al intentar salvar los datos nuevos que ingreses
Del objeto TTable
· El evento OnCalcField del objeto TTable con la orden.

Del objeto TForm
Las clásicas acciones de apertura y cierre de la tabla en los eventos OnCreate y OnClose.

Te envío también un archivo de proyecto adjunto con dicho ejemplo.

Saludos de parte de Carlos A. Robello