Muy facil. Mira la ayuda del TNotifyEvent...
verás que su definición es algo así como:
TNotifyEvent: procedure (Sender: TObject) of Object;
La coletilla "of Object" lo que significa es que es una referencia a procedimiento de un objeto, no a procedimiento normal.
Luego tu procedure pinta; (los parentesis no hacen falta, al contrario que en C que se requieren siempre) debes declararlo dentro de un objeto (por ejemplo, tu TForm1).
|