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

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

memo.onchange:=memo1Change;

procedure TForm1.Memo1Change(Sender: TObject);
begin

panel1.caption:='Содержимое было изменено';
end;