Создание события во время выполнения приложения
на примере переопределения события в Memo:
memo.onchange:=memo1Change;
procedure TForm1.Memo1Change(Sender: TObject);
begin
panel1.caption:='Содержимое было изменено';end;
memo.onchange:=memo1Change;
procedure TForm1.Memo1Change(Sender: TObject);
begin
panel1.caption:='Содержимое было изменено';end;