как обрабатывать событие OnChange: TNotifyEvent

[Oddy]

Здравствуйте! У меня такой вопрос. Нужно обрабатывать событие OnChange.
В справке по делфи есть код примера календаря

type
  TSampleCalendar = class(TCustomGrid)
  private
    FOnChange: TNotifyEvent;
  protected
    procedure Change; dynamic;
  .
  .
  .
  published
    property OnChange: TNotifyEvent read FOnChange write FOnChange;
  .
  .
  .
procedure TSampleCalendar.Change;
begin
  if Assigned(FOnChange) then FOnChange(Self);
end;

procedure TSampleCalendar.SetCalendarDate(Value: TDateTime);
begin
  FDate := Value;
  UpdateCalendar;
  Change;                                             
end;

procedure TSampleCalendar.SetDateElement(Index: Integer; Value: Integer);
begin
    .                                           
    .
    .
    FDate := EncodeDate(AYear, AMonth, ADay);
    UpdateCalendar;
    Change;                                                               
  end;
end;

Как теперь использовать в приложении событие OnChange? Для этого обязательно создавать компонент, чтобы обработчик события был в Object Inspector?

[zubr]

Необязательно. Событие можно подключить динамически:

Код:

TForm1 = class(TForm)
    SampleCalendar1: TSampleCalendar;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    procedure SampleCalendarChange(Sender: TObject);
  public
    { Public declarations }
  end;

implementation

procedure TForm1.FormCreate(Sender: TObject);
begin
  SampleCalendar1.OnChange := SampleCalendarChange;
end;

procedure SampleCalendarChange(Sender: TObject);
begin
  //код обработчика
end;