Дулю вам с маком.
Большая половина написана в стиле "а у нас нет возможности написать более эффективный код"

Разрешение альтернативы ReadXXX в Дельфи-2 делается в Design-Time. В Дельфи-1 - в RunTime
Вариантность типа (TData - грубо говоря) должна быть разрешена в Desing-Time
Мало

Если, конечно говорить об эффективности кодов.
А если не говорить - разговор становится сразу беспредметным и неуместным