Puntero a función

[Guillermo80]

Hola foreros, tengo un problema al traducir una cabecera de una función de Visual C++, la cual es un puntero a una función. He mirado cómo debería hacerse pero me salen errores de compilación que no consigo resolver. La "original" es la siguiente:

typedef void (*FLAC__StreamEncoderProgressCallback)(const FLAC__StreamEncoder *encoder);

Según he visto, debería quedar así en Delphi:

var

pfuncion : Pointer;

pfuncion:procedure
FLAC__StreamEncoderProgressCallback(encoder:PFLAC__StreamEncoder);

...pero no funciona, el primer problema parece ser que pfuncion está redeclarado, pero es así como venía en la "guía" que consulté, ¿qué idea se os ocurre?