DisplayFormat en tiempo de ejecución?

[jachguate]

Debes tener un método en la forma con los parámetros necesarios, de acuerdo al tipo del evento.

En el caso de OnGetText, que es del tipo TFieldGetTextEvent, encontramos fácilmente en la ayuda su declaración, que es como va:

Código Delphi [-]
type TFieldGetTextEvent = procedure(Sender: TField; var Text: string; DisplayText: Boolean) of object;
property OnGetText: TFieldGetTextEvent;

Por lo tanto declaras un método, llamemolo FormatearFloatField.

Lo declaras asi:

Código Delphi [-]
type 

TForm1 = class(TForm)
  ..
private
  Procedure FormatearFloatField(Sender: TField; var Text: string; 
                  DisplayText: Boolean);
..

Lo codificas en la sección de implementation y en tiempo de ejecución podes asignarlo "dinámicamente" a cualquier field.

Código Delphi [-]
  // si estas en el mismo formulario
  query1.FieldByName('Total').OnGetText := FormatearFloatField;  
  // si lo tuvieras en un modulo de datos, por ejemplo...
  query1.FieldByName('Total').OnGetText := ModuloDatos.FormatearFloatField;  
  query1.FieldByName('Total').OnGetText := FormatearFloatField;

Hasta luego.