Создание события во время выполнения приложения

на примере переопределения события в Memo:

memo.onchange:=memo1Change;

procedure TForm1.Memo1Change(Sender: TObject);
begin
panel1.caption:='Содержимое было изменено'; end;

[000059]