Puntero a función

[Guillermo80]

Hola Al, muchas gracias por esta clase magistral , me aclara bastante las ideas de lo que estoy manejando, ya que había cosas que no tenía clara.

He estado mirando un poco más a fondo las directivas y en este caso creo que está claro que se usa register, que es la que permite definir tipos con parámetros. Así que ahora lo tengo definido así, pero aún así no me funciona:

type

TFLAC__StreamEncoderProgressCallback = procedure FLAC__StreamEncoderProgressCallback
(encoder:PFLAC__StreamEncoder; bytes_written:FLAC__uint64; samples_written:FLAC__uint64; total_frames_estimate:LongWord; client_data:Pointer);register;

var

funcCallback : TFLAC__StreamEncoderProgressCallback;

¿Por qué me falla la compilación? El error que me sale es directiva desconocida para FLAC__StreamEncoderProgressCallback.