Подскажите на примере как создать свое событие в Delphi.

Допустим я хочу создать событие onDenjf

И что бы он происходило по нажатию на button

procedure Tform1.buttonclick(senderbject);
begin
//.....
//как я понял тут надо написать
If Assigned(FOndenjf) then FOondenjf(self);
end;

обработчик
procedure trorm1.ondenjf(senderbject);
begin
///тут че нибуть делаем
end;

Что нужно добавить еще?