TFieldGetTextEvent

[jlrbotella]

Hola:

Tengo un problema al llamar desde un evento a un procedimiento. He estado revisando el foro y hay un ejemplo de como formatear campos usando el evento TFieldGetTextEvent.

Mi procedimiento lo declaro como:

procedure FormatearFechaHoraEDI(Sender: TField; var Text: string; DisplayText: Boolean);

Pero cuando lo llamo desde una tabla, desde esta forma:

mitabla.ongettext := formatearFechaHora;

El compilador me devuleve el siguiente error:

[Pascal Error] pedidos_entrada.pas(183): E2010 Incompatible types: 'TFieldGetTextEvent' and 'Pointer'

¿Qué error cometo?.

Gracias,
JL