Переопределение события в TSQLQuery

[Tango]

Здравствуйте.

Как возможно создавая в run-time TSQLQuery, определить заранее реакцию на событие, скажем, BeforeOpen.
Нужно создать потомка TSQLQuery, и в нём создать предопределённую реакцию, вот только КАК?
Я это пока не знаю, может подскажите?

Забыл пояснить: Мне надо создать класс, от которого я бы мог создавать экземпляры, например

ShadowQuery:=TMyQuery.Create(nil);

и больше не возиться с каждым квери.

[Ism]

Query1.OnBeforeOpen:=@Query2.OnBeforeOpen

Событие одного запроса будет ссылаться на событие другого

Пример приблизителен

[v-t-l]

Событие одного запроса будет ссылаться на событие другого

Обработчик события OnBeforeOpen у Query1 и Query2 будет общий.

[Ism]

Вот пример работы с подменой событий
viewtopic.php?f=5&t=7065&p=53628