Criação de eventos.

Alguem ja criou conponentes com novos eventos.

Eu estou criando um componente que tera novos eventos mas esta dando pau na hora de chamar o metodo.


exemplo:

type

ENovo_Evento = procedure(Sender: TObject; Accept: Boolean) of Object;

private

fOnEvento: ENovo_Evento;

published

property OnEvento: ENovo_Evento read fOnEvento write fOnEvento;



if Assigned(fOnEvento) then
begin
fOnEvento(Self, Accept ) aqui da access violation
end;