Подключение Delphi TReader.OnFindComponentClass

Question

Как можно использовать TReader.OnFindComponentClass? TReader творение жестко закодировано в TStream.ReadComponent, Я не вижу места, где можно зацепить событие.

TStream.ReadComponent не виртуальный. И даже если бы это было, если бы нужно было вывести TStream, можно также извлечь TReader прямо и OnFindComponentClass не будет много пользы. Я считаю, что это должен быть какой-то простой способ подцепить событие, иначе даже не имеет смысла. Но я не могу это идентифицировать.

Причина, по которой я спрашиваю, - это ответ @DavidHeffernan на:
TLabel отображает клавиши ускорения, даже когда состояние пользовательского интерфейса говорит "нет".

Я уверен, что я всегда создаю TUIStateAwareLabel скорее, чем TLabel подключив механизм потоковой передачи формы с TReader.OnFindComponentClass,