Puntero a función

[Guillermo80]

Hola Delphius, gracias por los ejemplos, se parece a lo que quiero hacer pero aún aplicando como me dices no me termina de salir. Para que entiendas un poco el contexto, se trata de un código en una Unit.pas que hace referencia a una librería compilada en Visual C++, de ahí el querer traducir la cabecera de este método. Este puntero a funcion es a su vez un parámetro de entrada de otra función que es la que hace uso de la dll. Finalmente mi código ha quedado como sigue:

...
...
type

TFLAC__StreamEncoderProgressCallback = function FLAC__StreamEncoderProgressCallback

(encoder:PFLAC__StreamEncoder; bytes_written:FLAC__uint64; samples_written:FLAC__uint64;

total_frames_estimate:LongWord; client_data:Pointer):Pointer;


var

funcCallback : TFLAC__StreamEncoderProgressCallback; {no lo necesito, ya se lo paso a ..init_FILE con el parámetro progress_callback}

const
libFLAC = 'libFLAC.dll';

function FLAC__stream_encoder_init_FILE(encoder:PFLAC__StreamEncoder; pfile:PFile;
progress_callback:TFLAC__StreamEncoderProgressCallback; client_data:Pointer):FLAC__StreamEncoderInitStatus;cdecl; External libFLAC;

¿Qué es lo que estoy haciendo mal?