|
Primero, que
TMiEvento = procedure (Sender: TObject; var value : Integer) of object;
(fijate en el of bject). Con of Object defines que es un puntero a método de objeto y no a un procedimiento normal (que no cuelga de un objeto).
Por lo demás, he copiado tu código y en el click del botón me sale un ventanuco diciendome el valor asignado.
|